
= ~ s±= Application Program 



H20-0241-2 



1130 Commercial Subroutine Package 
(1130-SE-25X), Version 2 
Program Reference Manual 



The IBM 1130 Commercial Subroutine Package is for IBM 
1130 users with a knowledge of FORTRAN. The package is 
not intended to make FORTRAN a complete commercial 
language, but to supply commercial capability to users of 
IBM 1130 FORTRAN. 

This manual is a combined user's, operator's, and system 
manual. 



Third Edition 

This edition, H20-0241-2, is a major revision of, and obsoletes, H20-0241-1. 



Copies of this and other IBM publications can be obtained through IBM branch 

offices. Address comments concerning the contents of this publication to 

IBM, Technical Publications Department, 112 East Post Road, White Plains, N.Y. 10601 



© International Business Machines Corporation 1966 1967 



CONTENTS 

Introduction 

3 
General Description 

Machine and System Configuration 

5 
Input/ Output Considerations 

Subroutine Parameter Considerations 

g 
Detailed Descriptions • 

ADD 10 

A1DEC 13 

CARRY 16 

DECA1 • • ' 18 

DIV - ..- 20 

EDIT • 24 

FILL • ■•••• 29 

~~ m - . 30 

GET 

QQ 

ICOMP • • 

IOND 35 

KE YBD ■• 3 6 

MOVE 38 

MPY 40 

NCOMP 

45 
NSIGN 

47 
NZONE • 

PACK 49 

PRINT >./,.. • ••• • • • • • •...-••■ ' •'■ ••• •'-..• ' 51 



PUNCH 

53 

PUT 

55 

READ 

57 

SKIP 

60 

STACK 

62 

SUB 

63 

TYPER 

65 

UNPAC 

68 

WHOLE 

70 

Programming Notes 

Modification Aids 

76 

Sample Problems 

78 

Problem 1 

78 

Problem 2 

88 

Problem 3 

99 

Flowcharts 

LiStin ^ S 130 

Appendix 

Core Allocation , . „ 

148 

EBCDIC Characters and Decimal Equivalents 

Operating Instructions 

151 

Halt Listing 

6 151 

Bibliography 



INTRODUCTION 

The IBM 1130 Commercial Subroutine Package enables the FORTRAN user to perform 
the basic functions of commercial programming. It provides the following commercial 
capabilities : 

1. Floating dollar sign and asterisk check protection 

2. Alphameric move and compare operations 

3. Reading unformated records 

4. Complete input/output character editing, with zone punch manipulation 

5. Variable-length decimal arithmetic 

The package is modular in design and consists of the following subroutines: 

ADD - variable-length decimal add 

A1DEC - conversion from Al format to decimal format 

CARRY - resolve carries in a decimal field 

DECA1 - conversion from decimal format to Al format 

DTV - variable-length decimal divide 

EDIT - edit a data field 

FILL - fill a variable-length area with a specified character 

GET - extract a data field from an input area 

ICOMP - compare two variable-length decimal data fields 

IOND - wait until all input/output operations are finished 

KEYBD - accept characters from the keyboard 

MOVE - move a variable-length alphameric data field 

MPY - variable-length decimal multiply 

NCOMP - compare two variable- length alphameric data fields 

NSIGN - test a sign or modify a sign 

NZONE - test a zone or modify a zone 



PACK - conversion from Al format to A2 format 

PRINT - overlap the printing of a line on the 1132 Printer 

PUNCH - punch a card on the 1442 Card Read Punch 

PUT - place a variable in an output area 

READ - read a card on the 1442 Card Read Punch 

SKIP - skip the carriage or space lines on the 1132 Printer 

STACK - select the next card to the alternate stacker on the 1442 Card Read Punch 

SUB - variable-length decimal subtract 

TYPER - overlap the typing of a line on the console printer 

UNPAC - conversion from A2 format to Al format 

WHOLE - truncate the fraction of a real number 

The 1130 Commercial Subroutine Package is designed for an IBM 1130 with 8, 192 words 
of core storage, with card input/output, with or without the 1132 Printer, and with or 
without the disk storage drive. 

The subroutines are written in both 1130 FORTRAN and the 1130 Assembler Language 
as follows: 



FORTRAN 

ADD 

A1DEC 

CARRY 

DECA1 

DTV 

EDIT 

FILL 

GET 

ICOMP 

MOVE 

MPY 

NCOMP 

NSIGN 

NZONE 

PUT 

SUB 



Assembler Language 

IOND 

PACK/UNPAC 

PRINT/SKIP 

READ/PUNCH 

STACK 

TYPER/KEYBD 

WHOLE 
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GENERAL DESCRIPTION 

The 1130 Commercial Subroutine Package has been written to facilitate the use of 
FORTRAN in basic commercial programming. To accomplish this, six functions are 
required- (1) variable-length alphameric move, (2) variable-length alphameric compare, 
(3) edit, floating dollar sign, and asterisk check protection, (4) reading of unformatted 
records, (5) zone manipulation, and (6) variable-length decimal arithmetic. 

These functions and more are supplied in the package. 

The 23 subroutines making up the 1130 Commercial Subroutine Package are to be in- 
serted in the FORTRAN execute deck or stored on the disk cartridge. 

Timing for each routine is approximately 1 ms per character. 

Since the routines are used in conjunction with FORTRAN and are written in FORTRAN, 
there are restrictions on the range of real variables. An extended precision real num- 
ber must be between -1,000,000,000 and +1,000,000,000. 

These restrictions do not apply to numbers in decimal format. There is no limit to the 
number of digits in a number that is in decimal format . 

However, because the 1130 is a binary computer, a decimal fraction is not always 
equal to its binary equivalent. With real numbers, therefore, it is possible to have 
errors called precision errors. These errors should appear in the low-order digit 
only In one of the subroutines, PUT, the user has the option to half-adjust, which 
means that if one additional digit is carried, precision errors should not affect the 
results. 

Therefore, the limits on a real number, dollars and cents, are: 

Minimum -1,000,000.000 

Maximum +1,000,000.000 

As can be seen, an additional digit is carried for precision. In addition, all real arith- 
metic operations should be performed in mills, not dollars. The decimal point may be 
placed when results are printed. 

Again these restrictions do not apply to numbers in decimal format- There is no limit 
to ^'numb er of digits in a number that is in decimal format . However, all calculations 
with decimal numbers should also be performed with an additional digit carried (mills) 
This does not make it difficult to half-adjust results. 

The control statement ONE WORD INTEGERS must be used in the main program in 
order for the subroutines to work properly. The package is being distributed in extended 
precision Therefore, the control statement EXTENDED PRECISION should be used. 
Instructions for converting the package to standard precision are included under "Modi- 
fication Aids" . 
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cards produced by the 1130, which then serve as input to subsequent runs Any control 
X-punches in any positions, will not be recognized when the underpunched cSgft is a 
zero. "Not recognized" means that the character position is replaced with a SanJ This 
used! ^^ iDPUt ^ ° UtPUt When Standard FORTi ^N MADs and I W^E^kre 

A 12-punch is not recognized by the conversion routines with FORTRAN when the under- 
punched dig lt is a zero. Therefore, a plus zero (12-0 Hollerith) will be CrVssed at 
only a 0-punch. For this reason, plus fields should be left unJne^rlerZTu 
punched in the units position. ±z 

When the input routines supplied with this package are used, this problem does not exist 
All zone punches are recognized and are treated properly. 

With one exception, all I/O devices must use either FORTRAN I/O exclusively or Com- 
mercial Subroutine Package I/O exclusively. The exception is as follows "f the console 

FORT e RlNI/o° mi ? erCial ^T™ PaCkage VO > OHly the 1132 Winter may use etther 
FORTRAN I/O or Commercial Subroutine Package I/O. 

Because most of these subroutines are written in FORTRAN, they facilitate machine 
independence and modification. ^uiwxe macnine 

MACHINE AND SYSTEM CONFIGURATION 

PaXTa": SSST CMl ' SUrat " >n ^^ to ^CHt. »e U30 Cornel Sub™.*, 

1131, Model IB 

1442 Card Read Punch, Model 6 or 7 

All devices supported by FORTRAN are supported in the same manner under the 1130 
pro^MeT " PaCkage ' * additi ° n ' the f0ll ° W1 ^ ° verla P capabmties are 

• Printing on the 1132 Printer is overlapped with all other operations. 

# co'verstt" °" *" ^ ^ *"* ^^ MOdel 6 ° r ? ' iS ° verla *P ed with «>*> 

' fhe t^oZr COnS ° le PriQter ^ ° Verlapped With a11 °P era ^ns except reading from 
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With one exception, all I/O devices must use either FORTRAN I/O exclusively or Com- 
mercial Subroutine Package I/O exclusively. The exception is as follows: if the console 
printer uses Commercial Subroutine Package I/O, only the 1132 Printer may use either 
FORTRAN I/O or Commercial Subroutine Package I/O. 

In order to compile the subroutines, the minimum configuration is: 

1131, Model 1A 

1442 Card Read Punch, Model 6 or 7 

These subroutines require certain parts of the IBM 1130 Subroutine Library (see "Core 
Allocation" in Appendix). Provided these subroutines are available at load time, the 
commercial subroutine package is usable with either the Assembler Language or the 
FORTRAN language. 



INPUT/ OUTPUT CONSIDERATIONS 

In general, when using the FORTRAN READ for input of data from cards, paper tape 
or disk, the information should be read under Al format. 

In this manner, multiple record formats can be interrogated and the data extracted. 

All of the subroutines expect data in Al format, one character per word. Therefore, 
cards or paper tape that are read using the FORTRAN READ statement should be read 
under Al format. Since disk READs are in core image form, the data on disk can be 
stored in either Al or A2 format, A2 being preferable to conserve space. There are 
two routines in the package, PACK and UNPAC, to convert from Al format to A2 format, 
and A2 format to Al format, respectively. These may be used in conjunction with disk 
input and output. 

An example of reading a card under Al format is: 

DIMENSION INCRD(80) 
1 FORMAT(80A1) 

IO=2 

READ(IO.l) INCRD 
Note that standard FORTRAN READ statements are not overlapped. 
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1° ™ te out data > which is one character per word, in Al format, using the FORTRAN 
WRITE statement, Al format should be used. If a field is purely a FORTRAN variable, 
the output of a line that contains this variable and information stored in Al format may 
be as follows: * 

DIMENSION INFA1(60) 

1 FORMAT(F10.4,60A1) 

1=3 

WR1TE(I,1) VAR.INFA1 

where VAR is the FORTRAN variable, and INFA1 contains the A 1, character, information. 
Again, note that standard FORTRAN WRITE statements are not overlapped. 

A part of the 1130 Commercial Subroutine Package is devoted to overlapping input/ 
output as much as possible. For example, consider the printing of one line on the 
1132 Printer: 

Using the standard FORTRAN WRITE, the printing is initiated and nothing else may 
occur while the printing is in progress. Using the PRINT subroutine in this package, 

CALL PRINT(IOUT,1,120,ICH12) 

the printing is initiated and control is returned to the user's program to execute the 
next statement. In this way, while printing is in progress, other operations can be 

The following table summarizes the overlap capabilities of this package: 



Device 
Card reader 

Console keyboard 
Card punch 
Console printer 
1132 Printer 



is overlapped 



with Function 

Conversion from card codes 
to Al format 

Nothing 

Nothing 

Anything but keyboard 

Anything 



When using any of the I/O routines in this package, the user must always place the 
statement CALL IOND before any STOP or PAUSE. 

This will ensure that all interrupts for I/O operations have been serviced. 
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The use of these subroutines will speed up most commercial data processing jobs on 
the 1130. 

With one exception, all I/O devices must use either FORTRAN I/O exclusively or Com- 
mercial Subroutine Package I/O exclusively. The exception is as follows: if the console 
printer uses Commercial Subroutine Package I/O, only the 1132 Printer may use either 
FORTRAN I/O or Commercial Subroutine Package I/O. 



SUBROUTINE PARAMETER CONSIDERATIONS 



The subroutines manipulate arrays. The data contained in these arrays may be in one 
of three different formats: Al format, A2 format, or decimal format. 

Al format means that there is one character per 1130 word, left-justified. 



Character 



Blank 



Al format: 

bits 7 8 15 

A2 format means that there are two characters per 1130 word. 

A2 format: Character Character 

bits 7 8 15 

Decimal format means that there is one decimal digit per 1130 word, right-justified. 



Decimal format: 



00000000 



0000 Digit 



bits 



7 8 15 
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The requirements for each subroutine are as follows: 



Subroutine 

ADD 

A1DEC 

CARRY 

DECA1 

DIV 

EDIT 

FILL 

GET 

ICOMP 

IOND 

KEYBD 

MOVE 

MPY 

NCOMP 

NSIGN 

NZONE 

PACK 

PRINT 

PUNCH 

PUT 

READ 

SKIP 

STACK 

SUB 

TYPER 

UNPAC 

WHOLE 



Format of data 
before processing 

Decimal format 
Al format 
Decimal format 
Decimal format 
Decimal format 
Al format 
Decimal constant 
Al format 
Al format 

None 

Al format 
Al format 
Decimal format 
Al format 

Decimal format 
Al format 
Al format 
Al format 
Al format 
Real variable 
Al format 
Decimal constant 
None 

Decimal format 
Al format 
A2 format 
Real variable 



Format of data 
after processing 

Decimal format 

Decimal format 

Decimal format 

Al format 

Decimal format 

Al format 

Al format 

Real variable 

Greater than, equal to, 
or less than zero 

None 

Al format 

Al format 

Decimal format 

Greater than, equal to, 
or less than zero 

Integer variable 

Integer variable 

A2 format 

Al format 

Al format 

Al format 

Al format 

None 

None 

Decimal format 

Al format 

Al format 

Real variable 



DETAILED DESCRIPTIONS 



This section gives the general format and a description of each routine. Each descrip- 
tion contains format, function, parameter description, detailed description, example, 
errors, and remarks. The function describes the capabilities of the routine. The pa- 
rameter description explains in detail how the parameters, variables, and constants 
should be set up. The detailed description tells exactly what the subroutine does and 
how it should be used. Examples are given as an aid to the programmer. Certain spec- 
ification and input errors may occur when using the package, and these are explained. 
The remarks section describes some peculiarities of the routine. Further information 
may be obtained from the flowcharts and listings. 



ADD 



Format : CALL ADD(JC ARD,J,JLAST, KCARD .K.KLAST, NER) 

Function : Sums two arbitrary-length decimal data fields, placing the result in the 
second data field. 

Parameter description: 

JCARD - The name of a one -dimensional integer array defined in a DIMENSION 

statement. This is the array which is added, the addend. The data must 
be stored in JCARD in decimal format, one digit per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first digit to be added (the left-hand end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 
greater than or equal to J. This is the position of the last digit to be 
added (the right-hand end of a field) . 

KCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the augend, the array which is added to. It will 
contain the result in decimal format, one digit per word. 

K - An integer constant, an integer expression, or an integer variable. 
This is the position of the first digit of KCARD (the left-hand end of a 
field). 

KLAST - An integer constant, an integer expression, or an integer variable, 
greater than or equal to K. This is the position of the last character 
of KCARD (the right-hand end of a field). 

NER - An integer variable. Upon completion of the subroutine, this variable 
indicates whether arithmetic overflow occurred. 

Detailed description : The corresponding digits, by place value, of JCARD and KCARD, 
are summed and placed back in KCARD. This operation is from left to right, with both 
fields being right-adjusted. Next, all carries are set in order. If overflow occurred, 
it is indicated by NER being equal to KLAST. NER must be initialized and reset by the 
user. More detailed information may be found in the ADD flowchart and listing. 
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Example: DIMENSION IGRND(12) ,ITEM(6) 

N=0 
CALL ADD(rrEM,l,6,IGRND,l,12,N) 

Before: 

IGRND 000713665203 



Position 1 5 
ITEM 102342 



10 




IGRND 000713767545 



Position 1 5 10 
ITEM is unchanged. 
N=0 

The numeric data field ITEM, in decimal format, is ADDed to the numeric data field 
IGRND, also in decimal format. Note that the fields are both right- justified. The error 
indicator, N, is the same, since there is no overflow out of the high-order digit, left- 
hand end, of the IGRND field. 

Errors: If the KCARD field is not large enough to contain the sum, that is, if there is a 
carry out of the high-order digit, the error indicator, NER, will be set equal to KLAST, 
and the KCARD field will be filled with 9s. 

If the JCARD field is longer than the KCARD field, nothing will be done and the error 
indicator will be equal to KLAST. 

Remarks : Conversion from EBCDIC to decimal is necessary before using this subroutine. 
This may be accomplished with the A1DEC subroutine. 
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The length of the JCARD and KCARD fields is arbitrary, up to the maximum space 
available. 

The arithmetic performed is decimal arithmetic, using whole numbers only. No deci- 
mal point alignment is allowed. For this reason all numbers should have an assumed 
decimal point at the right-hand end. Dollars and cents calculations should be performed 
m mills so that half-adjusting, when necessary, will not be difficult. This is illustrated 
in the following example: 

Add $1,776.00 to $2,000.07. 

$1, 776.00 in mills is 1776000. 

$2,000.07 in mills is 2000070. 

Adding, the sum is 3776070. 

Half-adjusting in the mills position yields 3776075. 

Using the EDIT subroutine, the result will be $3,776.07. 

Note that the error indicator is not reset by this subroutine. It is the responsibility 
of the user to initialize and reset the error indicator. 



-12- 



A1DEC 

Format : CALL A1DEC(JCARD,J,JLAST,NER) 

Function : Converts a field from Al format, one digit per word, to decimal format, 
right-justified, one digit per word. 

Parameter description : 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the name of the field that will be converted. Orig- 
inally, this field must be in Al format, one character per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of JCARD to be converted (the left- 
hand end of a field) . 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the position of the last character of 
JCARD to be converted (the right-hand end of a field). 

NER - An integer variable. This variable will be equal to the position of the 

last invalid (nonnumeric or nonblank) character encountered, except for 
the JLAST position, which may contain a sign. 

Detailed description : The subroutine operates from left to right. Each character is 
checked for validity (digit or blank). Blanks are changed to zeros. If a character is 
invalid, the error indicator, NER, is set equal to the position of the character. If the 
character is valid, it is converted to decimal format and right -justified using the for- 
mula 

Decimal digit = (character+4032)/256 

When all characters have been converted, the decimal field is signed. More detailed 
information may be found in the A1DEC flowchart and listing. 

Example: DIMENSION IFLD(20) 

N=0 
CALL A1DEC(IFLD,7,17,N) 

Before : 

IFLD AbBbCbDbEbFbbbbbbbbb0b7blb3b6b6bJbEbNbDb 



Position 1 

N=0 



10 



15 



20 
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After: 



IFLD AbBbCbDbEbFb00000713661EbNbDb 



Position 1 

N=0 



10 15 



20 



Before execution, the field is shown in Al format, the character followed by a blank. 
Therefore, the field to be converted is 

bbbb071366J 

After execution, the field has been converted, as is evident. There were no invalid 
characters in the field, since N is the same. 

Errors : If an invalid character (nonnumeric or nonblank) is encountered, the error 
indicator is set equal to the position of that character, and processing of the field 
continues. 

Remarks: When the error indicator has been set, the character indicated is the last 
invalid character. There may be' other invalid characters in the field, occurring to 
the left of the character noted. 

Zone punches are used, at times, to indicate conditions (switches). These zones can be 
removed with the NZONE subroutine. Following is an error routine to correct errors 
of this type: 

Main Line 



1 CALL A1DEC(IFLD,J,JLAST,N) 
IF(N) 2,2,3 

2 Continue Main Line 



Error Routine 

CALL NZONE(IFLD,N,4,Nl) 

N1=0 

CALL A1DEC(IFLD,N,N,N1) 

IF(N1) 5,5,4 



-14- 



4 STOP 999 

5 CALL DECA1(IFLD,J,JLAST,N) 
N=0 

GO TO 1 

When an error of this type occurs, N will be greater than zero. Control would go to 
statement 3. Using the NZONE routine, the zone is removed (if not a special character). 
The invalid character is now converted with the A1DEC routine. If the character is still 
invalid, control goes to statement 4 and the program will STOP. If the character is now 
valid, it has been converted and control goes to statement 5. However, there may have 
been other invalid characters. Therefore, at statement 5 the field is converted back to 
Al format and control returns to statement 1, where the field is again converted from 
Al format to decimal format. This process continues until a truly invalid character 
(special character) is encountered, or until the field is converted with no errors. 

Note that the error indicator is not reset by this subroutine. It is the responsibility 
of the user to initialize and reset the error indicator. 
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CARRY 

Format : CALL CARR Y( JCARD, J, JLAST, KARRY) 

Function : Resolve all carries within the specified field and indicate any high-order 

carry out of the field. This routine will not normally be called by the user. 

Parameter description : 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the field that will be interrogated for carries. The 
data must be in decimal format. 

J - An integer constant, an integer expression, or an integer variable. 
This is the position of the first digit of JCARD (the left-hand end of a 
field). 

JLAST - An integer constant, an integer expression, or an integer variable, 
greater than or equal to J. This is the position of the last character 
of JCARD (the right-hand end of a field) . 

KARRY - An integer variable. This variable will contain any carry out of the 
high-order position of the JCARD field. If there is no carry, KARRY 
will be set to zero. 

Detailed description : The routine operates from right to left, examining the low-order 
digit first. The digit being examined is divided by ten. Since only integers are used, 
the quotient of this division is the carry in that digit. Ten times the carry is subtracted 
from the digit. If the digit is now negative, ten is added to the digit and one is sub- 
tracted from the carry. At this point, or if the resultant digit was positive, the next 
digit to the left is examined. First, the carry from the previous digit is added to this 
digit. Then the process for the first digit, starting with division by ten, is carried out. 
When all digits have been examined, from JCARD(JLAST) to JCARD(J) inclusive, the 
final carry is set and the routine terminates. More detailed information may be found 
in the CARRY flowchart and listing. 

Example : DIMENSION NUMB(IO) 

CALL CARRY(NUMB,L10,N) 



Before: 



NUMB 00 72 6 27 51811 



Position 1 

N=22 



! t I 



10 
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After: 
NUMB 



0723350211 



Position 



10 



N=0 



After an arithmetic operation the condition of the NUMB field is as shown at "Before". 
The third, fifth and eighth positions appear as shown, because multiple arithmetic 
operations have generated them. The object of the CARRY routine is to resolve this 
type of problem. 

Notice that a 1 has been borrowed from the seventh position to resolve the -8 condition. 
Similarly, a 3 has been borrowed from the fourth position, and the 7 from 72 has gone 
into the second position. 

Errors: None 

Remarks : This routine is used by the other routines in this package as a service routine. 
In general, the user need not call this routine, since all carries are resolved by the 
arithmetic routines themselves (ADD, SUB, MPY, DIV). 



-17- 



DECA1 

Format : CALL DECA1(JCARD,J,JLAST,NER) 

Function: Converts a field from decimal format, right-justified, one digit per word, to 
Al format, one character per word. 

Parameter description: 



J - 



JLAST - 



NER - 



JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the name of the field that will be converted. Origi- 
nally, this field must be in decimal format, one digit per word. 

An integer constant, an integer expression, or an integer variable. 
This is the position of the first digit of JCARD to be converted (the 
left-hand end of a field). 

An integer constant, an integer expression, or an integer variable, 
greater than or equal to J. This is the position of the last character 
of JCARD to be converted (the right-hand end of a field). 

An integer variable. This variable will be equal to the position of the 
last digit of JCARD which was negative or greater than 9, except for the 
JLAST position, which can be negative (sign). 

Detailed description : The subroutine operates from left to right. First the sign is de- 
termined. Then each digit, starting with JCARD(J), is converted to Al format using the 
formula 

Character = 256 (decimal digit) - 4032 

When all digits have been converted, the field is signed. More detailed information 
may be found in the DECA1 flowchart and listing. 

Example : DIMENSION IFLD(20) 

N=0 



CALL DECA1(IFLD,7,17,N) 



Before: 
IFLD 



AbBbCbDbEbFb0000071366lEbNbDb 



Position 1 

N=0 



10 15 



20 
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After: 



IFLD AbBbCbDbEbFb0b0b0b0b0b7blb3b6b6bJbEbNbDb 



10 



15 



20 



Position 1 5 

N=0 

Before execution the field is shown in decimal format. The field to be converted is 

00000713661 

After execution, the field has been converted to Al format, as is evident, the character 
followed by a blank. There were no invalid digits in the field, since N is the same. 

Errors : If an invalid digit (not to 9, inclusive) is encountered, the error indicator is 
set equal to the position of that character, and processing of the field continues. 

Remarks: When the error indicator indicates an error, the digit indicated is the last 
invalid digit. There may be other invalid digits in the field, occurring to the left of the 
digit noted. 

These errors should not occur, since the arithmetic routines (ADD, SUB, MPY, and 
DIV) will resolve carries. However, if this does happen, the user's program should 
indicate (possibly by STOPing) that this has occurred. 

Note that the error indicator is not reset by this subroutine. It is the responsibility of 
the user to initialize and reset the error indicator. 
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DIV 

Format : CALL DIV(JCARD,J,JLAST,KCARD,K,KLAST,NER) 

Function : Divides one arbitrary-length decimal data field by another, placing the 
quotient and remainder in the dividend. 

Parameter description : 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array is the divisor. The data must be stored in 
JCARD in decimal format, one digit per word. 

J - An integer constant, an integer expression, or an integer variable. 
This is the position of the first digit of the divisor (the left-hand end of 
a field) . 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the position of the last digit of the 
divisor (the right-hand end of a field) . 

KCARD- The name of a one -dimensional integer array defined in a DIMENSION 
statement. This array, the dividend, will contain the quotient and the 
remainder, extended to the left, in decimal format, one digit per word. 

K - An integer constant, an integer expression, or an integer variable. 
This is the position of the first digit of the dividend (the left-hand end 
of a field). 

KLAST - An integer constant, an integer expression, or an integer variable, 
greater than or equal to K. This is the position of the last digit of 
the dividend (the right-hand end of a field) . This is also the position 
of the last digit of the remainder. 

NER - An integer variable . Upon completion of the subroutine, this variable 
indicates whether division by zero was attempted, or whether the 
KCARD field is not long enough. 

Detailed description : First the signs are cleared from both fields and saved. Then the 
KCARD field is extended to the left the length of the JCARD field (JLAST-J+1), and 
filled with zeros. If the KCARD field will be extended below KCARD(l), NER will be set 
equal to KLAST and the routine will be terminated. Next, the JCARD field is scanned to 
find the high-order significant digit. If no digit is found, the error indicator NER is set 
to KLAST, and the result is the same as the input. When a digit is found, the division 
begins. It is done by the method of trial divisors: 

1. The high-order digit of the divisor is used as the trial divisor. 

2. The trial divisor is divided into the next high-order digit of the dividend to generate 
a digit of the quotient. 

3. The digit of the quotient is multiplied by the trial divisor. 

4. This product is subtracted from the corresponding number of digits in the high- 
order portion of the dividend. 
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5. As long as the result is positive, the quotient digit is the next digit in the quotient. 
A return is made to step 2. 

6. When the result is negative, the product from step 3 is added back to the dividend, 
1 is subtracted from the quotient digit, and the new quotient digit is placed in the 
quotient as the next digit. Finally, the signs are generated for the quotient and 
remainder and the sign is replaced on the divisor. 

The quotient will be located in the KCARD field. The subscript of the first digit of the 
quotient will be K-(JLAST-J+1) , and the subscript of the last digit of the quotient will be 
KLAST-(JLAST-J+1). 

The remainder will also be located in the KCARD field. The subscript of the first digit 
of the remainder will be KLAST-JLAST+J, and the subscript of the last digit of the re- 
mainder will be KLAST. 



KCARD 



QUOTIENT 



REMAINDER 



D 



A KB C 

A is the position whose subscript is K-(JLAST-J+1) . 

K is the first position of the dividend, defined earlier. 

B is the position whose subscript is KLAST-(JLAST-J+1) . 

C is the position whose subscript is KLAST-(JLAST-J) . 

D is the position whose subscript is KLAST. 

More detailed information may be found in the DIV flowchart and listing. 

Example: DIMENSION IDVSR(5),IDVND(15) 

N=0 
CALL DIV(IDVSR,1,5,IDVND,6,15,N) 

Before: 

IDVSR 00982 



t t 



Position 



IDVND ABCDE0007 136673 



fill 



Position 

N=0 



10 15 



-21- 



After: 



IDVSR is unchanged. 

IDVND 000000726700479 
A 



Position 15 10 15 

N=0 

The numeric data field IDVND has been divided by the numeric data field IDVSR, the 
remainder and quotient being placed in IDVND in reverse order (quotient followed by 
remainder). Note that the IDVND field has been extended to the left the length of the 
IDVSR field, five positions. 

Errors : If division by zero is attempted, the only action is that KCARD is extended and 
filled with zeros. The error indicator indicates that division by zero was attempted 
(NER=KLAST). 

If there is not enough room to extend the KCARD field to the left, NER will again be set 
equal to KLAST, and the routine will terminate. None of the fields involved will be 
modified. 

Remarks : Conversion from EBCDIC to decimal is necessary before using this subroutine. 
This may be accomplished with the AlDEC subroutine. 

The length of the JCARD and KCARD fields is arbitrary, up to the maximum space 
available. 

The arithmetic performed is decimal arithmetic, using whole numbers only. No decimal 
point alignment is allowed. For this reason numbers should have an assumed decimal 
point at the right-hand end. Dollars and cents calculations should be performed in mills 
so that half-adjusting, when necessary, will not be difficult. This is illustrated in the 
following example: 

Divide $166. 75 by 36. 25 hours to find the rate per hour. 

$166. 75 in mills is 166750. 

36.25 to three decimal places is 36250. 

The units in the division are mills per one-thousandth of an hour. The answer is 
desired in mills per hour, so if the numerator is multiplied by 1000, the units will 
be mills per hour. 

Dividing yields a quotient of 4600 and a zero remainder. Half-adjusting yields the 
rate of 4605 mills per hour or $4. 60 per hour. 
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Space must always be provided in the KCARD field for expansion. The first position of 
the dividend, K, must be at least JLAST-J+1 positions from the beginning of KCARD. 
For example, if JCARD is seven positions, 1 through 7, the dividend in KCARD, must 
start at least seven positions (7-1+1=7) from the beginning of KCARD. This would have 
K equal to 8. 



-23- 



EDIT 

Format : CALL EDIT(JCARD,J,JLAST,KCARD,K,KLAST) 

Function : Edits data from one array into another array, which contains the edit mask. 

Parameter description : 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array contains the data to be edited, called the source 
field, one character per word, in Al format. 

J - An integer constant, an integer expression, or an integer variable. 
This is the position of the first character of JCARD to be edited (the 
left-hand end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the position of the last character of 
JCARD to be edited (the right-hand end of a field). 

KCARD - The name of a one-dimensional, integer array defined in a DIMENSION 
statement. This is the array into which data is edited; it contains the 
edit mask before editing begins , stored one character per word, in Al 
format, and is called the mask field. 

K - An integer constant, an integer expression, or an integer variable. 

This is the position of the first character of the edit mask (the left-hand 
end of a field). 

KLAST - An integer constant, an integer expression, or an integer variable, 
greater than K. This is the position of the last character of the edit 
mask (the right-hand end of a field). 

Detailed description : The following table gives the control characters for editing, the 
characters used to make up the mask, and their respective functions: 

Control Character Function 

b (blank) This character is replaced by a character from the 

source field. 

(zero) This character indicates zero suppression and is 

replaced by a character from the source field. The 
position of this character indicates the rightmost limit of 
zero suppression (see description of operation below). 
Blanks are inserted in the high-order nonsignificant 
positions of the field. 
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Control Character 
(decimal) 

, (comma) 



CR (credit) 



- (minus) 
* (asterisk) 



$ (floating dollar 
sign) 



Function 

This character remains in the mask field where placed. 
It is considered a significant character and may not be 
zero-suppressed. 

This character remains in the mask field where placed. 
However, if zero suppression is requested, this charac- 
ter will be removed if it is to the left of the last character 
to be zero-suppressed. 

These two characters can be placed in the two rightmost 
positions of the mask field. They are undisturbed if the 
source field is negative. (If the source field is positive, 
the characters C and R are blanked out. ) In editing 
operations, a negative source field is indicated by an 
11-zone over the rightmost character. Whether CR is 
blanked out or not, no data will be edited into these 
positions when CR is present, but rather into the edit 
characters to the left. 

The letters C and R may be used in the remainder of 
the edit mask, where they will be treated as normal 
alphabetic characters, without being subject to sign 
control. 

Only the R character is checked, so the C character may 
be any legal character, and it will be treated as 
described. 

This character is handled similarly to CR in the 
rightmost position of the mask field. 

This character operates the same as the (zero) for 
zero suppression, except that asterisks rather than 
blanks are inserted in the high-order nonsignificant 
positions of the field, providing asterisk check 
protection. 

This character has the same effect as the (zero) for 
zero suppression, except that a $ is inserted to the left 
of the first significant character found, or to the left 
of the position that stopped the zero suppression. 



The operation of the edit routine may be described in five steps: 

1. Characters are placed in the mask field from the source field, moving from right 
to left. The characters (zero), b (blank), * (asterisk) and $ (dollar sign) are re- 
placed with characters from the source field. No other characters in the mask 
field are disturbed. 
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2. If all characters in the source field have not been placed in the mask field before the 
end of the mask field is encountered, the whole mask is set to asterisks and editing 
is terminated. 

3. CR (credit) and - (minus) in the rightmost positions of the mask field are blanked if 
the source field is positive (does not have an 11-zone over the rightmost character). 

4. The zero suppression scan starts at the left end of the mask field and proceeds left 

to right, replacing zeros (0), blanks (b's), and commas (,). The last position replaced 
will occur where the zero suppression character was located, or one position to the 
left of where a significant character, not zero (0), blank (b), or comma (,), occurs. 
If the zero suppression character was an asterisk (*), the replacement character is an 
asterisk. Otherwise, the replacement character is a b (blank). 

5. If the zero suppression character was a dollar sign ($), a dollar sign is placed in the 
last replaced position in the zero suppression scan. 

In order for the edit routine to work correctly and as described, five rules must be 
followed in creating the mask field: 

1. There must be at least as many b's (blanks) in the mask field as characters in the 
source field. 

2. If the mask field contains zero (0), asterisk (*), or dollar sign ($), zero suppression 
will be used and the first character in the mask field must be a b (blank). 

3. The mask field must not contain more than one of the following, which may appear 
only once: 

(zero) 
* (asterisk) 
$ (dollar sign) 

4. If the rightmost character in the mask field is an R, the next character to the left 
must be a C, in order to edit with CR (credit). Both characters will be blanked if 
the source field is positive. If the rightmost character in the mask field is - (minus), 
it will be blanked if the source field is positive. 

5. All numeric, alphabetic, and special characters may be used in the mask field. All 
characters that do not have special meaning will be left in their original position in 
the mask field during the edit. 

More detailed information may be found in the EDIT flowchart and listing. 
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Example: There are two common methods for creating a mask field: 



Method 1 
DIMENSION MASK(IO) 
FORMAT(lOAl) 
IN=2 
READ(IN,1)MASK 



Method 2 
DIMENSION MASK(IO) 
MASK(1)=16448 
MASK(2) =27456 
MASK(3) =16448 
MASK(4)=16448 
MASK(5)=23360 
MASK(6)=19264 
MASK(7) =16448 
MASK(8)=16448 
MASK(9)=-15552 
MASK(10)=-9920 

The first method, and by far the shorter and simpler, is to read the mask field in from 
a data card. Note that each character requires a word of core storage. The second 
method is to create the mask field using the FORTRAN arithmetic statement. Still 
another method for creating the mask field is by using the FILL routine. These last two 
methods make use of the decimal equivalents of EBCDIC codes as listed in the Appendix. 

The table of examples below illustrates how the EDIT routine works: 

Result 

bbb$12.34bb 
bbb$12.34CR 
bbb$12.34- 
bbb$12.34b 
b$464,267.23bb 
***20.07CR 
082-26-7139 

b$AB12.34bb 
$-, 123.45b 

Because the mask field is destroyed after each use, it is advisable to move the mask 
field to the output area and perform the edit function in the output area. 



Source Field 


Mask Field 


00123D 


bb,bb$.bbCR 


00123M 


bb,bb$.bbCR 


00123M 


bb,bb$.bb- 


00123D 


bb,bb$.bb- 


46426723 


b,bbb,bb$.bbCR 


00200P 


b,bb*.bbCR 


082267139 


bbb-bb-bbbb 


01234567 


bbbb$.bbCR 


0AB1234 


bbbbb$.bbCR 


-12345 


bb,bb$.bb- 
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Errors : If the number of characters in the source field is greater than the number of 
blanks in the mask field, the mask field is filled with asterisks (*). 

Remarks : If JLAST is less than or equal to J, only one character will be placed in the 
mask field. 

In order to place a b (blank) in a specific position, the FILL routine may be used. In 
addition . the EDIT routine may be modified so that the & (ampersand) will indicate a 
blank in the position in which the ampersand is placed. 
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FILL 

Format : CALL FILL(JCARD,J,JLAST,NCH) 
Function : Fills an area with a specified character. 
Parameter description : 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array contains the area to be filled. 

J - An integer constant, an integer expression, or an integer variable. 
This is the position of the first character of JCARD to be filled (the 
left-hand end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the position of the last character of 
JCARD to be filled (the right-hand end of a field). 

NCH - An integer constant, an integer expression, or an integer variable. 

This is the code for the fill character. The Appendix contains a list of 
these codes. 

Detailed description : The area of JCARD, starting with J and ending with JLAST , is 
filled with the character equivalent to the NCH code, one character per word, in Al for- 
mat. More detailed information may be found in the FILL flowchart and listing. 

Example: CALL FILL (IPRNT,3,10,16448) 

Fill the area IPRNT from positions 3 through 10 with blanks. In other words, clear the 
area. 
IPRNT: 

Before: ABCDEFGHIJKLMNOPQRSb. . . 
After: ABbbbbbbbbKLMNOPQRSb. . . 



Position 1 
Errors : None. 



10 



15 



20 



Remarks : If JLAST is less than J, only JCARD(J) will be filled with the character 
equivalent of NCH. 
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GET 

Format: GET (JCARD, J, JLAST .SHIFT) 

Function: Extracts a data field from an array, and converts it to a real number This 
is a function subprogram. 

Parameter description : 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array contains the data to be retrieved, stored one 
digit per word, in Al format. 



J - 



An integer constant, an integer expression, or an integer variable. 
This is the position of the first character of JCARD to be retrieved 
(the left-hand end of a field) . 

JLAST - An integer constant, an integer expression, or an integer variable 

greater than or equal to J. This is the position of the last character 
of JCARD to be retrieved (the right-hand end of a field). 

SHIFT - A real constant, a real expression, or a real variable. If decimal 
places are required, SHIFT is equal to I0"d d being the number of 
decimal places. When SHIFT is used as a scale factor, SHIFT is 10 d 
d being the number of zeros. If a card contains 12345 and the value of 
SHIFT is 0. 0001, the result will be 1. 2345. The result will be 123450 
if a value 10. is assigned to SHIFT. 

Detailed description : Using the formula 

BINARY DIGIT = (EBCDIC CODE + 4032) / 256 

the real digits are retrieved. Each binary digit is shifted left and summed, resulting in 
a whole number decimal. The sum is multiplied by SHIFT to locate the decimal point 
The result is then placed in the real variable GET. If there are blanks in the data field 
they are treated as zeros. If a nonnumeric character, other than blank, appears in any 
position other than the low-order position, the variable containing the result is zero 
If a special character, other than the - (minus), appears in the low-order position the 
resulting variable is set to zero. For input and for output the sign must be placed'over 
the low-order position as an 11-punch for minus and a 12 or no overpunch for plus If 
the low-order position is zero and the number is negative, the column must contain only 
an 11-punch. (The zero must not be punched. ) If the low-order position is zero and the 
number is positive, the column must contain only the zero punch. (The 12 row must not 
be punched. ) 

More detailed information may be found in the GET flowchart and listing. 
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Example 1: DIMENSION INCRD(80) 

B=GET(INCRD,1,5,0. 001) 
Before: INCRD 0123456b. 



Position 1 
B = 0.0 
After: INCRD is the same. 

B = 1.234 

Example 2: 

A = GET (INCRD.1 ,6,0.01) + GET (INCRD,7,12,0.01) 
+ GET (INCRD,13,18,0.01) + GET (INCRD,19,24,0.01) 
+ GET (INCRD,25,30,0.01) + GET (INCRD,31,36,0.01) 
+ GET (INCRD,37,42,0.01) + GET (INCRD,43,48,0.01) 

Before: 

INCRD 001221000070145035700357161111724368120001270124 

II I I I I I t I 

Position 1 6 12 18 24 30 36 42 48 



A=0.0 
After: 



INCRD is the same 



A = 21222. 87 



The above example sums the six-digit fields found in the first 48 columns of a card. 
Each data field has two decimal places. Any arithmetic operation can be performed 
with GET () as an operand. 
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Errors : If a nonnumeric character, other than blank, appears in a position other than 
the low-order position, the result is set to zero. 

If a special character other than - (minus) appears in the low-order position, the result 
is set to zero. 

Remarks: The GET routine is a function subprogram. As such, it is used in an arith- 
metic expression as shown in the example. 

When the digit in the units position is a zero, a minus sign is shown as an 11-punch only; 
a plus is shown as a zero-punch only. 

In most cases the value of SHIFT should be 10. 0, placing the decimal point at the right- 
hand end of the number. (For dollars and cents calculations, the result of the GET would 
be in mills. ) This will eliminate precision errors from the calculations. The decimal 
point may be replaced, moved to the left, with the EDIT routine for output. (See ex- 
ample under "Programming Notes".) 

If JLAST is less than J, only one digit, JCARD(J), will be placed in the real variable 
GET. 
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ICOMP 

Format : ICOMP (JCARD,J,JLAST,KCARD,K,KLAST) 

Function- Two variable-length decimal format data fields are compared. The result 
ls set to a negative number, zero, or a positive number. This is a function subprogram. 

Parameter description: 



JCARD - 



J - 



JLAST 



KCARD 



K 



The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array contains the first data field to be compared, one 
digit per word, in decimal format. 

An integer constant, an integer expression, or an integer variable. 
This is the position of the first character of JCARD to be compared 
(the left-hand end of a field). 

An integer constant, an integer expression, or an integer variable, 
greater than or equal to J. This is the position of the last character 
of JCARD to be compared (the right-hand end of a field). 

The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array contains the second data field to be compared, 
one digit per word, in decimal format. If the fields are unequal in 
length, the KCARD field must be the longer field. 

An integer constant, an integer expression, or an integer variable. 
This is the position of the first character of KCARD to be compared 
(the left-hand end of a field). 



KLAST - An integer constant, an integer expression, or an integer variable, 
greater than or equal to K. This is the position of the last character 
of KCARD to be compared (the right-hand end of a field). 

Detailed description: Since the fields are assumed to be right-justified, the first 
operation is to examine the length of each field. If KCARD is longer than JCARD the 
leading digits of KCARD are examined. If any one of them is greater than zero the 
result (ICOMP) is the opposite sign of KCARD. If they are all zero, or if the lengths 
are equal, corresponding digits are compared. The routine operates from left to right. 
The routine terminates when KCARD is longer than JCARD and a nonzero digit appears 
in the high-order of KCARD, when JCARD and KCARD do not match, or when all digits 
in JCARD and KCARD are equal. The following table shows the value of ICOMP, 
depending on the relation of the JCARD field to the KCARD field: 



ICOMP 

- (minus) 
(zero) 
+ (plus) 



Relation 

JCARD is less than KCARD 
JCARD is equal to KCARD 
JCARD is greater than KCARD 
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More detailed information may be found in the ICOMP flowchart and listing. 

Example : DIMENSION ITOT(10),ICTL(10) 

IF (ICOMP(ICTL,1,10,ITOT,1,10)) 1,2,1 

The control total is compared to the total calculated. Control goes to statement 1 if the 
totals do not match (the calculated total is greater than or less than the control total) 
Control goes to statement 2 if the calculated total is equal to the control total. The fields 
compared are not changed. 

ITOT 0007136673 

ICTL 0007136688 

ICOMP after is positive. 

Errors: No errors are detected. However, the JCARD field must not be longer than the 
KCARD field. 

Remarks : ICOMP is a function subprogram and as such should be used in an arithmetic 
expression. 

If JLAST is less than J, or KLAST is less than K, the result is unpredictable. 
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IOND 

Format : CALL IOND 

Function : Checks for I/O interrupts and loops until no I/O interrupts are pending. 

Detailed description : The routine checks the Interrupt Service Subroutine Counter to see 
whether any I/O interrupts are pending. If the counter is not zero, the routine continues 
to check it until it becomes zero. Then the routine returns control to the user. More 
detailed information may be found in the IOND flowchart and listing. 

Example : CALL IOND 

PAUSE 777 

The two statements shown will wait until all I/O interrupts have been serviced. Then the 
program will PAUSE. If an I/O interrupt is pending, and IOND is not used before a 
PAUSE, the program will not PAUSE. 

Errors : None 

Remarks : This statement must always be used before a STOP or PAUSE statement. 

It may also be helpful in debugging programs. Sometimes, with more than one event 
going on at the same time (PRINTing and processing) during debugging, difficulties can 
be encountered. The user may not be able to easily find the cause of trouble. The use 
of IOND after each I/O statement will ensure that only one I/O operation is going on at 
any given time. 
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KEYBD 



Format : CALL KEYBD(JCARD,J,JLAST) 
Function : Reads characters from the keyboard. 
Parameter description : 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array will contain the keyed information when reading 
is finished. The information will be in Al format, one character per 
word. 

An integer constant, an integer expression, or an integer variable. 
This is the position of the first word of JCARD into which a character 
will be keyed (the left-hand end of a field). 

An integer constant, an integer expression, or an integer variable, 
greater than or equal to J. This is the position of the last word of 
JCARD into which a character will be keyed (the right-hand end of a 
field). 

Detailed description : The keyboard is read and the information being read is printed on 
the console printer. When the specified number of characters have been read, or when 
EOF is encountered, the reading terminates. The characters read are converted from 
keyboard codes to EBCDIC and placed in Al format, one character per word. Control is 
now returned to the user. More detailed information may be found in the TYPER/ 
KEYBD flowchart and listing. 



J - 



JLAST - 



Example: 



DIMENSION INPUT(30) 
CALL KEYBD(INPUT,1,30) 



Before: 



INPUT ABCDEFGHIJKLMNOPQRSTUVWXYZ0123 



Position 15 10 15 20 25 30 

After: 

INPUT THE CUSTOMER NAME GOES HERE123 



. 



Position 15 10 15 20 25 30 
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The array INPUT, from INPUT(l) to INPUT (30), has been filled with information read 
from the keyboard. 



Errors : The following WAITs may occur: 
WAIT (loc) Accumulator (hex) 

41 2xx0 

41 2xxl 



Action 
Ready the keyboard- 
Internal subroutine error. 
Rerun job. If error persists, verify 
that the subroutine deck is accurate 
using the listing in this manual. If the 
deck is the same, contact your local 
IBM representative. Save all output. 



Only 60 characters at a time may be read from the keyboard. 

If JLAST is less than J, only one character will be read. 

If more than 60 characters are specified (JLAST- J+l is greater than 60) , only 
60 characters will be read. 

Remarks: The characters asterisked in Appendix D of IBM 1130 Subroutine Library 
(C26-5929) will be entered into core storage and printed. All other characters will 
be entered into core storage but will not be printed. 

If this subroutine is used, any other I/O must use commercial subroutines, with the 
exception of disk, which must always use FORTRAN I/O, and the 1132 Printer, which 
may use either FORTRAN I/O or the I/O subroutine in this package. 
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MOVE 

Format : CALL MOVE(JCARD,J,JLAST,KCARD,K) 

Function : Moves data from one array to another array. 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 

statement. This is the array from which data is moved. The data must 
be stored in JCARD in Al format, one character per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of JCARD to be moved (the left-hand 
end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the position of the last character of 
JCARD to be moved (the right-hand end of a field). 

KCARD - The name of a one-dimensional integer array defined in a DIMENSION 

statement. This is the array to which data is moved, one character per 
word. 

K - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of KCARD to which data will be 
moved (the left-hand end of a field). 

Detailed description: Characters are moved, left to right, from the sending field, 
JCARD, starting with JCARD(J) and ending with JCARD(JLAST), to the receiving field 
KCARD, starting with KCARD(K). More detailed information may be found in the MOVE 
flowchart and listing. 

Example: DIMENSION INPUT(80),IOUT(120) 

L=20 

K=14 

CALL MOVE(INPUT,6,L,IOUT,K) 



Before: 
INPUT 



Position 



bbbbl2ABC45ZYXPQR999Ab. . . 



1 1 



10 



15 



20 
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IOUT 



bbbbbblbb77b6ABCDEFGHIJKLMNOPb. . . 
4 4 4 



10 15 



20 25 



30 



Position 1 5 

After: 

INPUT is the same. 

IOUT 

bbbbbblbb77b62ABC45ZYXPQR999Pb. . . 



I t 



Position 



10 15 



20 



I t 

25 30 



The field in the array INPUT, starting at INPUT(6) and ending at INPUT(20), is moved 
to the field in the array IOUT, starting at IOUT(14). A total of 15 characters are moved. 



Errors: None 



Remarks: If JLAST is less than J, one character is moved to KCARD(K). 



-39- 



MPY 



Format: CALL MPY(JCARD,J,JLAST,KCARD,K,KLAST,NER) 

Function: Multiplies two arbitrary-length decimal data fields, placing the product in the 
second data field. 

Parameter description: 



JCARD 



The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array is the multiplier. The data must be stored in 
JCARD in decimal format, one digit per word. 

An integer constant, an integer expression, or an integer variable. This 
is the position of the first digit that will multiply (the left-hand end of a 
field). 



JLAST - 



KCARD - 



K 



An integer constant, an integer expression, or an integer variable, 
greater than or equal to J. This is the position of the last digit to 'mul- 
tiply (the right-hand end of a field). 

The name of a one -dimensional integer array defined in a DIMENSION 
statement. This array, the multiplicand, will contain the product, ex- 
tended to the left, in decimal format, one digit per word. 

An integer constant, an integer expression, or an integer variable. This 
is the position of the first digit of the multiplicand (the left-hand end of a 
field). 



KLAST 



NER 



An integer constant, an integer expression, or an integer variable, 
greater than or equal to K. This is the position of the last character of 
the product and the multiplicand (the right-hand end of a field). 

An integer variable. This variable will indicate whether the KCARD 
field is not long enough. 



Detailed description : First the signs are cleared from both fields and saved. Then the 
KCARD field is extended to the left the length of the JCARD field (JLAST-J+1) and filled 
with zeros. If the KCARD field will be extended below KCARD (1), NER will be set 
equal to KLAST and the routine wiU be terminated. Next, the JCARD field is scanned to 
find the high-order significant digit. If no digit is found, the result is set to zero. When 
a digit is found, the actual multiplication begins. The significant digits in the JCARD 
field are multiplied by the digits in the KCARD field, one at a time, starting with 
KCARD(K) and ending with KCARD(KLAST). The preliminary results are summed, 
shifting after each preliminary multiplication to give the correct place value to the pre- 
liminary results. Finally, the correct sign is generated for the result, in KCARD, and 
the sign of JCARD is restored. More detailed information may be found in the MPY 
flowchart and listing. 
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Example: DIMENSION MPLR(5),MCAND(15) 

N=0 

CALL MPY(MPLR,1,5,MCAND,6,15,N) 
Before: 

MPLR 00982 



Position 



MCAND ABCDE0007136673 



Position 1 5 10 15 

N=0 
After: 

MPLR is unchanged. 

MCAND 000007008212886 



Position 15 10 15 

N=0 



The numeric data fields MPLR and MCAND are multiplied, the result being placed in 
MCAND. Note that the MCAND field has been extended to the left the length of the 
MPLR field, five positions, and that N has not been changed. 

Errors: If there is not enough room to extend the KCARD field to the left, NER will be 
set equal to KLAST, and the routine will terminate. 

Remarks: Conversion from EBCDIC to decimal is necessary before using this subrou- 
tine^ This may be accomplished with the A1DEC subroutine. 

The length of the JCARD and KCARD fields is arbitrary, up to the maximum space 
available. 

The arithmetic performed is decimal arithmetic, using whole numbers only. All num- 
bers should have an assumed decimal point at the right-hand end. Dollars and cents 
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calculations should be performed in mills so that half -adjusting, when necessary, will 
not be difficult. This is illustrated in the following example: 

Multiply 36. 25 hours by $4. 60. 

36.25 to three decimal places is 36250. 

$4.60 in mills is 4600. 

Multiplying, the product is 166750000. 

Half -adjusting in the mills position, adding 5 to that position only, yields 
166755000. 

Using the EDIT subroutine on positions 1 through 5, the result will be $166. 75. 

Space must always be provided in the KCARD field for expansion. The first position of 
the multiplicand, K, must be at least JLAST-J+1 positions from the beginning of 
KCARD. For example, if JCARD is 7 positions, 1 through 7, then the multiplicand, 
in KCARD, must start at least seven positions (7-1+1=7) from the beginning of KCARD. 
This would have K equal to 8. 

The product, located in the KCARD field, will begin at position K-(JLAST-J+1) of 
KCARD, and end at position KLAST of KCARD. 
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NCOMP 

Format: NCOMP(JCARD,J,JLAST,KCARD,K) 

Function : Two variable -length data fields are compared, and the result is set to a nega- 
tive number, zero, or a positive number. This is a function subprogram. 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array contains the first data field to be compared, one 
character per word, in Al format. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of JCARD to be compared (the left- 
hand end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the position of the last character of 
JCARD to be compared (the right-hand end of a field). 

KCARD - The name of a one-dimensional, integer array defined in a DIMENSION 
statement. This array contains the second data field to be compared, 
one character per word, in Al format. 

K - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of KCARD to be compared (the left- 
hand end of a field). 

Detailed description : Corresponding characters of JCARD and KCARD are compared 
logically, starting with JCARD(J) and KCARD(K). The routine operates from left to 
right. The routine terminates when JCARD and KCARD do not match, or when the char- 
acter at JCARD(JLAST) has been compared. The following table shows the value of 
NCOMP, depending on the relation of the JCARD field to the KCARD field: 

NCOMP Relation 

- (minus) JCARD is less than KCARD 

(zero) JCARD is equal to KCARD 

+ (plus) JCARD is greater than KCARD 

More detailed information may be found in the NCOMP flowchart and listing. 

Example: DIMENSION IN(80) 

IF (NCOMP(IN,1,20,MASTR,1))1,2,3 
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The field on the input card starting in column 1 and ending in column 20 is compared 
with the master field. Control goes to statement 1 if the input card is less than the mas- 
ter card. Control goes to statement 2 if the input card equals the master card. Control 
goes to statement 3 if the input card is greater than the master card. The fields com- 
pared are not changed. 

IN 1234567bbbbbbbABCDEF 

MASTER 1234567bbbbbbbABCDEF 

NCOMP after is zero 

Errors : None 

Remarks : The collating sequence in ascending order is as follows: 

A,B,C,D,E,F,G,H ) I ) J,K ) L,M,N,0,P,Q ) R,S,T,U ) V,W J X,Y,Z ,0,1,2,3,4,5,6,7,8,9, 

blank,., <,(,+,&,*,),-, /,„%,#,©,',= 

The compare operation is terminated by the last character of the first data field, the data 
field at JCARD, or by an unequal comparison. NCOMP is a function subprogram and as 
such should be used in an arithmetic statement. 

If JLAST is less than J, only the first character from each field will be compared. 
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NSIGN 

Format : CALL NSIGN(JCARD,J,NEWS,NOLDS) 

Function : Interrogate the sign and return with a code as to what the sign is. Also, 
_ _ modlfy the sign ag gpecified. 

Param eter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 

statement. This array contains the digit to be interrogated or modified, 
in decimal format. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the digit to be interrogated or modified. 

NEWS - An integer constant, an integer expression, or an integer variable. This 
is the code specifying the desired modification of the sign. 

NOLDS - An integer variable. Upon completion of the routine, this variable con- 
tains the code specifying what the sign was. 

Detailed description : The sign is retrieved and NOLDS is set as in the table below: 

NOLDS is When the sign was 

+1 positive 

_1 negative 

Then a new sign is inserted, specified by NEWS, as shown in the table below: 

NEWS Sign 

+1 positive 

opposite of old sign 

-1 negative 

NOLDS no change 

More detailed information may be found in the NSIGN flowchart and listing. 
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Example : DIMENSION INUMB(9) 

CALL NSIGN(INUMB,9,0,N) 

Before: N=0, INUMB(9)=7 

After: N=l, INUMB(9)=-7 

Errors : None 

Remarks : The digit processed must be in decimal format. If it is not, the results are 
meaningless. 
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NZONE 

Format : CALL NZONE (JCARD,J,NEWZ,NOLDZ) 

Function: Interrogate the zone and return with a code as to what the zone is. Also, 
~ modify the zone as specified. 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array contains the character to be interrogated or 
modified, in Al format. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the character in JCARD to be interrogated or modified. 

NEWZ - An integer constant, an integer expression, or an integer variable. This 
is the code specifying the modification of the zone. 

NOLDZ - An integer variable. This variable contains the code specifying what the 
zone was. 

Detailed description: The zone is retrieved and NOLDZ is set as in the table below: 

NOLDZ is When the character was 

1 A-I 

2 J-R 

3 S-Z 

4 0-9 
more than 4 special 

Then a new zone is inserted, specified by NEWZ, as shown in the table below: 

NEWZ Character 



1 


12 zone 


2 


11 zone 


3 


zone 


4 


no zone 


more than 4 


no change 
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When a special character is the original character, the zone will not be changed. More 
detailed information may be found in the NZONE flowchart and listing. 



Example: 

Before: 
After: 
Errors: None 



DIMENSION IN (80) 
CALL NZONE(IN,l,2,J) 
J=0,IN(1) = B 
J=1,IN(1) = K 



Remarks : The minus sign or dash (-, an 11-punch) is treated as if it were a negative 
zero, not as a special character. This is the only exception. 

The only modification performed on an input minus sign is that it may be transformed to 
a digit zero with no zone (a positive zero). 
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PACK 

Format : CALL PACK(JCARD,J,JLAST,KCARD,K) 

Function: Information in Al format, one character per word, is PACKed into A2 format, 
"~ two characters per word. 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the input array, containing the data in Al format, 
one character per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of JCARD to be PACKed (the left- 
hand end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than J. This is the position of the last character of JCARD to 
be PACKed (the right-hand end of a field). 

KCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the array into which the data is PACKed, in A2 for- 
mat, two characters per word. 

K - An integer constant, an integer expression, or an integer variable. This 
is the position of the first element of KCARD to receive the PACKed 
characters (the left-hand end of a field). 

Detailed description : The characters in the JCARD array are taken in pairs, starting 
with JCARD(J), and PACKed together into one element of KCARD, starting with 
KCARD (K). Since the characters are taken in pairs, an even number of characters will 
always be PACKed. If necessary, the character at JCARD(JLAST+1) will be used in 
order to make the last data PACKed a pair. More detailed information may be found in 
the PACK/UNPAC flowchart and listing. 

Example: DIMENSION IUNPK(26),IPAKD(26) 

CALL PACK(IUNPK,1,25,IPAKD,1) 



Before: 

IUNPK AbBbCbDbEbFbGbHblbJbKbLbMbNbObPbQbRbSbTbUbVbWbXbYbZb 



Position 1 



10 



15 



20 



25 
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IPAKD 0blb2b3b4b5b6b7b8b9b0blb2b3b4b5b6b7b8b9b0blb2b3b4b5b 



10 



15 



20 



25 



Position 1 5 

After: 

IUNPK is the same. 

IPAKD ABCDEFGHIJKLMNOPQRSTUVWXYZ3b4b5b6b7b8b9b0blb2b3b4b5b 



Position 



10 



15 



20 



25 



Note that each two characters shown above represent one element of the array. 
Also, after IUNPK has been PACKed, the twenty-sixth character, Z, has been 
PACKed since 25 characters were specified (between J and JLAST). 

Errors : None 

Remarks : If JLAST is less than or equal to J, the first two characters of JCARD will be 
PACKed. An even number of characters in JCARD will always be PACKed into KCARD. 
An equation for how much space is required, in elements, in KCARD is 



Space in KCARD 
This result is rounded down at all times. 



[ "jLAST-J+2 *| 
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PRINT 

Format : CALL PRINT(JCARD,J,JLAST,NER) 

Function : The printing of one line on the IBM 1132 Printer only is initiated, and control 
is returned to the user. 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array contains the information to be printed, on the 
IBM 1132 Printer, in Al format, one character per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of JCARD to be printed (the left- 
hand end of a field) . 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the position of the last character of 
JCARD to be printed (the right-hand end of a field). 

NER - An integer variable. This variable indicates carriage tape channel con- 
ditions that have occurred in printing. 

Detailed description: When the previous print operation is finished, if a print operation 
was going on, the routine begins. The characters to be printed are packed and reversed. 
Since the characters are taken in pairs, an even number of characters is required. If 
necessary, the character at JCARD (JLAST+1) will be used to get an even number. Then 
printing is initiated and control is returned to the user. When printing is finished, the 
printer spaces one line and the indicator, NER, is set as follows: 

NER is when 

3 Channel 9 has been encountered 

4 Channel 12 has been encountered 
If channel 9 or channel 12 is not encountered, the indicator is not set. 
If a WAIT occurs at location 41, one of the following conditions exists: 
WAIT (loc) Accumulator (hex) Cause 

41 6xx0 Printer not ready or end of forms. 

41 6xxl Internal subroutine error. Rerun job. If 

error persists, verify that the subroutine 
deck is accurate, using the listing in this 
manual. If the deck is the same, contact 
your local IBM representative. Save all out- 
put. 
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All of the above WAITs require operator intervention. 

Only one line can be printed at a time (JLAST-J+1 must be less than or equal to 120). 

More detailed information may be found in the PRINT/SKIP flowchart and listing. 

Example : DIMENSION IOUT(120) 

N=0 

CALL PRINT(IOUT,1,120,N) 
IF(N-3) 1,2,3 

2 Channel 9 routine 

3 Channel 12 routine 

1 Normal processing 

The line in IOUT, from IOUT(l) through IOUT(120), is printed. The indicator is tested 
to see whether (1) the line was printed at channel 9 or (2) the line was printed at channel 
12. Appropriate action will be taken. 

Notice that the test of the indicator is made after printing . The test should always be 
performed in this way to see where the line has just been printed. If the indicator was 
set, the line was printed at channel 9 or channel 12. 

Errors : If JLAST is less than J, only one character will be printed. If more than 120 
characters are specified (JLAST-J+1 is greater than 120), only 120 characters will be 
printed. 

Remarks : After each line is printed, the condition indicator should be checked for the 
channel 9 or channel 12 indication. In doing this the same variable should always be used 
for the indicator. 

The indicator is not reset by the subroutine. It is the responsibility of the user to initial- 
ize and reset this indicator. 

If this subroutine is used, the FORTRAN READ and WRITE statements, except disk 
READ or WRITE, must not be used. 
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PUNCH 

Format : CALL PUNCH(JCARD,J,JLAST,NER) 

Function: Punches a card on the IBM 1442, Model 6 or 7, only. 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 

statement. This array contains the characters to be punched into a card, 
in Al format, one character per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of JCARD to be punched (the left- 
hand end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the position of the last character of 
JCARD to be punched (the right-hand end of a field). 

NER - An integer variable. This variable indicates any conditions that have 
occurred in punching a card, and the nature of these conditions. 

Detailed description: The characters to be punched are converted from EBCDIC to card 
codes, one at a time. When all characters have been converted, the punching operation 
is initiated. If an error occurs during the operation, the condition indicator is set, and 
the operation is continued. The possible values of the condition indicator and their mean- 
ing are listed below: 

NER is when 

Last card condition. 

1 Feed or punch check. 
Operator intervention 
required. 

If a WAIT occurs at location 41, one of the following conditions exists: 

Conditions Accumulator (hex) 

Punch not ready. lxx° 

Internal subroutine error. Rerun job. lxxl 

If error persists, verify that the sub- 
routine deck is accurate, using the 
listing in this manual. If the deck is 
the same, contact your D3M repre- 
sentative. Save all output. 

All of the above WAITs require operator intervention. 
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Only one card can be punched at a time (JLAST-J+1 must be less than or equal to 80). 
More detailed information may be found in the READ/PUNCH flowchart and listing. 
Example: DIMENSION IOTPT(80) 

N=-l 

CALL PUNCH(IOTPT,1,80,N) 

Before: 

IOTPT NAME . . . ADDRE SS. . . AMOUNT 



Position 1 20 60 

N=-l 
After: 

IOTPT is the same. 

N=0 

The information in IOTPT, from IOTPT(l) to IOTPT(80), has been punched into a card. 
Since N=0, the information was punched correctly, and the card punched into was the 
last card. 

Errors : If a punch or feed check occurs, the condition indicator will be set equal to 1. 
If an internal error occurs, the system will WAIT as specified above. 

If JLAST is less than J, only one character will be punched. 

If more than 80 characters are specified (JLAST-J+1 is greater than 80), only 80 charac- 
ters, one card, will be punched. 

Remarks : After each card is punched, the condition indicator should be checked for the 
last card indication. This will occur only after the last card has physically been 
punched. 

The condition indicator is not reset by the subroutine. It is the responsibility of the user 
to initialize and reset this indicator. 

If this subroutine is used, any other I/O must use commercial subroutines, with the ex- 
ception of disk, which must always use FORTRAN I/O, and the 1132 Printer, which may 
use either FORTRAN I/O or the I/O subroutine in this package. 
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PUT 

Format : CALL PUT(JCARD,J,JLAST,VAR,ADJST,N) 

Function : Converts the real variable, VAR, to an EBCDIC integer number, half- 

adjusting as specified, and places the result, after decimal point alignment, 
in an array. An 11-zone is placed over the low-order, rightmost position in 
the array if VAR is negative . 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This array will contain the result of the PUT routine, 
EBCDIC coded information, in Al format, one digit per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the first position of JCARD to be filled with the result (the left-hand 
end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to J. This is the last position to be filled with the 
result (the right-hand end of a field). 

VAR - A real constant, a real expression, or a real variable. This is the num- 
ber to be PUT. 

ADJST - A real constant, a real expression, or a real variable. This is added to 
the variable, VAR, as a half-adjustment factor. 

N - An integer constant, an integer expression, or an integer variable. This 
specifies the number of digits to truncate from the right-hand end of the 
number, VAR. 

Detailed description: First, the half -adjustment factor is added to the real variable, 
VAR. Then, each digit is retrieved using the formula 

EBCDIC DIGIT = 256 (BINARY DIGIT) - 4032 

and placed in the output area. Each binary digit is retrieved by subtracting the digits 
already retrieved from VAR and multiplying by 10. The next digit is then retrieved and 
placed in the output area. More detailed information may be found in the PUT flowchart 
and listing. 

Example: DIMENSION IPRNT(120) 

CALL PUT(IPRNT,1,12,A,5.0,1) 
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Before: 

A = 1234567. 

IPRNT ABCDEFGHIJKLMNOPQRSb 



Position 



10 



15 



20 



After: 



A = 1234567. 



IPRNT 



Position 



Errors: None 



000000123457MNOPQRSb 
i * ♦ ♦ \ 

1 5 10 15 20 



Remarks : If the receiving field, JCARD, is not large enough to hold all of the output, 
only the low-order digits are placed. 

It is necessary for the programmer to use the ADJST parameter in every PUT. Assume 
that the number to be PUT is $123. 00. Because the IBM 1130 is a binary machine, the 

number may be represented in core storage as 122. 999 If this number is PUTwith 

ADJST equal to zero, the result is $122. 99. With ADJST equal to 0. 005, the preliminary 
result is 123. 004; when PUT, the result is $123. 00. The value of ADJST should be a 5 
in the decimal position one to the right of the low-order digit to be PUT. 

In most cases the ADJST parameter should apply to the mills position. One digit should 
be specified by N (this truncates after rounding). See example under "Programming 
Notes". 

If JLAST is less than or equal to J, only one digit will be PUT. 
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READ 

Format : CALL READ(JCARD,J,JLAST,NER) 

Function: Reads a card from the IBM 1442, Model 6 or 7, only, overlapping the conver- 
__ ^^ from card codes to EBCDIC. 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 

statement. A card will be read into this array, in Al format, one char- 
acter per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first word of JCARD into which a character will 
be read (the left-hand end of a field). 

JLAST - An integer constant, an integer expression, or an integer variable, 
greater than or equal to J. This is the position of the last word of 
JCARD into which a character will be read (the right-hand end of a 
field). 

NER - An integer variable. This variable indicates any conditions that have oc- 
curred in reading a card, and the nature of these conditions. 

Detailed description: A card read operation is started. While the card is being read, 
the characters, one at a time, are converted from card codes to EBCDIC. If an error 
occurs during the operation, the condition indicator is set, and the operation continues. 
The possible values of the condition indicator and their meaning are listed below: 

NER is when 



Last card condition. 

1 Feed or read check. 
Operator intervention 
required. 

If a WAIT occurs at location 41, one of the following conditions exists: 

Conditions Accumulator (hex) 

Reader not ready. lxxO 

Internal subroutine error. Rerun job. lxxl 

If error persists, verify that the sub- 
routine deck is accurate, using the 
listing in this manual. If the deck is 
the same, contact your IBM repre- 
sentative. Save all output. 
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All of the above WAITs require operator intervention. 

Only one card can be read at a time (JLAST-J+1 must be less than or equal to 80). More 
detailed information may be found in the READ/PUNCH flowchart and listing. 



Example: 



DIMENSION INPUT (160) 

Nl=-1 

CALL READ(INPUT,1,80,N1) 

N2=-l 

CALL READ(INPUT,81,160,N2) 



Before: 



INPUT 000000. . . 0000000000 



Position 1 5 

Nl=-1 
N2=-l 



155 160 



After: 



INPUT THIS IS THE NAME. . . SECOND CARD. 



Position 1 5 10 15 80 81 85 90 160 

Nl=-1 

N2=-l 

From the user's viewpoint the next card is read into the INPUT array (1-80). Nl is not 
one of the indicated values, so the first read was successful. The next card is read into 
the INPUT array (81-160). N2 is not one of the indicated values, so the second read was 
also successful. 

Errors : If a read or feed check occurs, the condition indicator will be set equal to 1. If 
an internal error occurs, the system will WAIT as specified above. 

If JLAST is less than J, only one character will be read. 

If more than 80 characters are specified (JLAST-J+1 is greater than 80), only 80 charac- 
ters, one card, will be read. 
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Remarks: After each card read, the condition indicator should be checked for the last 
card indication. This will occur only after the last card has physically been read into 
core storage. 

The condition indicator is not reset by the subroutine. It is the responsibility of the 
user to initialize and reset this indicator. 

If this subroutine is used, any other I/O must use commercial subroutines, with the ex- 
ception of disk, which must always use FORTRAN I/O, and the 1132 Printer, which may 
use either FORTRAN I/O or the I/O subroutine in this package. 
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SKIP 

Format : CALL SKIP(N) 

Function : Execute the requested control function on the IBM 1132 Printer only. 

Parameter description: 

N - An integer constant, an integer expression, or an integer variable. The 

value of this variable corresponds to an available control function. 

Detailed description: If the printer is busy, the subroutine WAITs. Otherwise, or when 
the printer finishes, the routine executes the requested function and returns control to 
the calling program. The control functions and their values are as follows: 



Function 



Immediate skip to channel 1 

Immediate skip to channel 2 

Immediate skip to channel 3 

Immediate skip to channel 4 

Immediate skip to channel 5 

Immediate skip to channel 6 

Immediate skip to channel 9 

Immediate skip to channel 12 

Immediate space of 1 space 

Immediate space of 2 spaces 

Immediate space of 3 spaces 

Suppress space after printing 

Normal spacing is one space after printing. 

Example: NUMBR=12544 

CALL SKIP(NUMBR) 

The carriage skips until a punch in channel 1 of the carriage control tape is encountered 
(normally this is at the top of a page) . 



Value 
12544 
12800 
13056 
13312 
13568 
13824 
14592 
15360 
15616 
15872 
16128 
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Errors: Only the codes mentioned above can be used. The use of anything else will re- 
sult in either no movement of the carriage or a WAIT at location 41 with 6xxl in the 
accumulator (hex). 

Remarks: When space suppression after printing is executed, it is reset to single-space 
after printing. If the user wishes to continue suppression, he must give that skip com- 
mand again. 

If this subroutine is used, the FORTRAN READ and WRITE statements, except disk 
READ or WRITE, must not be used. 
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STACK 



Format : CALL STACK 

Function : Selects the alternate stacker on the IBM 1442, Model 6 or 7, only for the next 
card to go through the punch station. More detailed information may be found 
in the STACK flowchart and listing. 

Example : A card has been read. The sum of the four-digit numbers in columns 10-13 
and 20-23 is punched in columns 1-5. If the sum is negative, the card should be se- 
lected into the alternate stacker. A program to solve the problem follows: 



FORTRAN Statement 



1 


FORMAT(9X,I4,6X,I4) 


2 


FORMAT (15) 




IO=2 


3 


READ(IO,l)Il,I2 




13=11+12 




IF(I3)4,5,5 


4 


CALL STACK 


5 


WRITE (IO, 2)13 




GO TO 3 




END 


Errors: None 



Meaning 
Description of the input data. 
Description of the output data. 
Input unit number. 
Input statement. 
Sum. 

Is the sum negative ? 
Yes — select the card. 
No — punch. 
Process the next card. 



Remarks: 



_. K the card reader is in a not-ready state (last card) and the card just read is 

to be stacker-selected, the card reader will not accept the stacker select command. The 
user should place a blank card after the card designating last card to his program. This 
will prevent the card reader from becoming not ready and will allow the card to be 
stacker-selected. 
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SUB 

Format : CALL SUB(JCARD,J,JLAST,KCARD,K,KLAST,NER) 

Function : Subtracts one arbitrary-length decimal data field from another arbitrary- 
length decimal data field, placing the result in the second data field. 

Pa rameter description : 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the array that is subtracted, the subtrahend. The 
data must be stored in JCARD in decimal format, one digit per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first digit to be subtracted (the left-hand end of a 
field). 

JLAST - An integer constant, an integer expression, or an integer variable, 
greater than or equal to J. This is the position of the last digit to be 
subtracted (the right-hand end of a field). 

KCARD - The name of a one- dimensional integer array defined in a DIMENSION 
statement. This array, the minuend, is subtracted from, and will con- 
tain the result in decimal format, one digit per word. 

K - An integer constant, an integer expression, or an integer variable. This 
is the position of the first digit of KCARD (the left-hand end of the field). 

KLAST - An integer constant, an integer expression, or an integer variable, 

greater than or equal to K. This is the position of the last character of 
KCARD (the right-hand end of a field). 

NER - An integer variable. Upon completion of the subroutine, this variable 
will indicate whether arithmetic overflow occurred. 

Detailed description : The sign of the JCARD field is reversed and then the JCARD and 
KCARD fields are ADDed using the ADD subroutine. More detailed information may be 
found in the SUB flowchart and listing. 

Example: DIMENSION IGRND(12),ITEM(6) 

N=0 

CALL SUB(ITEM,1,6,IGRND,1,12,N) 
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Before : 

IGRND 000713665203 



Position 



1 5 10 



ITEM 10234K 



II 



Position 1 5 

N=0 
After: 

IGRND 000713767545 



Position 1 5 10 

ITEM is unchanged. 

N=0 

The numeric data field ITEM, in decimal format, is SUBtracted from the numeric data 
field IGRND, also in decimal format. Note that the fields are both right-justified. In 
this case, since the ITEM field is negative, and the operation to be performed is sub- 
traction, the ITEM field is added to the IGRND field. The error indicator, N, is the 
same, since there is no overflow out of the high-order digit, left-hand end, of the 
IGRND field. 

Errors : If the KCARD field is not large enough to contain the sum (that is, if there is a 
carry out of the high-order digit), the error indicator, NER, will be set equal to KLAST. 

If the JCARD field is longer than the KCARD field, nothing will be done and the error 
indicator will be equal to KLAST. 

Remarks: See the remarks for the ADD subroutine. 
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TYPER 

Format : CALL TYPER (JCARD, J, JLAST) 

Function: The typing on the console printer is initiated, and control is returned to the 
user. 

P arameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 

statement. This array contains the characters to be printed on the con- 
sole printer, in Al format, one character per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first character of JCARD to be printed (the left- 
hand end of a field) . 

JLAST - An integer constant, an integer variable, or an integer expression, 

greater than or equal to J. This is the position of the last character of 
JCARD to be printed (the right-hand end of a field). 

D etailed description : The characters to be printed are converted from EBCDIC to con- 
sole printer codes and are packed. Since the characters are taken in pairs, an even 
number of characters is required. If necessary, the character at JCARD (JLAST+1) will 
be used to get an even number. Then the print operation is started. While printing is in 
progress, control is returned to the user's program. 

More detailed information may be found in the TYPER/KEYBD flowchart and listing. 

Example: DIMENSION IOTPT(120) 

CALL TYPER (IOTPT, 1,120) 

Before: 

IOTPT QUANTITY. . . ITEM. . . PRICE. . . AMOUNT 

Mil 

Position 15 20 80 120 

After: 

IOTPT is the same. The line is being printed. 

The printing of the line, specified in IOTPT, is initiated on the console printer, and con- 
trol returns to the user's program. 
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Errors : The following WAITs may occur: 

WAIT (loc) Accumulator (hex) Action 

41 2xx0 Ready the console printer. 

41 2xxl Internal subroutine error. Re- 

run job. If error persists, 
verify that the subroutine deck 
is accurate, using the listing in 
this manual. If the deck is the 
same, contact your local IBM 
representative. Save all output. 

If JLAST is less than J, two characters will be printed. If more than 120 characters 
are specified (JLAST-J+1 is greater than 120), only 120 characters will be printed. 

Remarks : The asterisked characters in Appendix D of IBM 1130 Subroutine Library 
(C26-5925) are legal. No other characters will be printed. 

If this subroutine is used, any other I/O must use commercial subroutines, with the ex- 
ception of disk, which must always use FORTRAN I/O, and the 1132 Printer, which may 
use either FORTRAN I/O or the I/O subroutine in this package. 

Control functions can be used on the console printer. The following table indicates the 
available control functions and the decimal constant required for each function: 



Function 


Decimal constant 


Tabulate 


1344 


Shift to black 


5184 


Carrier return 


5440 


Backspace 


5696 


Line feed 


9536 


Shift to red 


13632 



The decimal constant corresponding to a particular function must be placed in the output 
area (JCARD). The function will take place when its position in the output area is 
printed. 
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Example: JCARD(1)=5440 

JCARD(21)=1344 

JCARD(30)=5440 

JCARD(51)=5440 

JCARD(82)=5440 

CALL TYPER(JCARD,1,101) 

The above coding will carrier-return to a new line, then print characters 2-20 of JCARD, 
tab to the next tab stop; print characters 22-29, carrier return, print characters 31-50, 
carrier return, print characters 52-81, carrier return, and finally print characters 
83-101. 
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UNPAC 



Format : CALL UNPAC (JCARD, J, JLAST,KCARD,K) 

Function : Information in A2 format, two characters per word, is UNPACked into Al 
format, one character per word. 

Parameter description: 

JCARD - The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the input array, containing the data in A2 format, 
two characters per word. 

J - An integer constant, an integer expression, or an integer variable. This 
is the position of the first element of JCARD to be UNPACked (the left- 
hand end of a field). 

An integer constant, an integer expression, or an integer variable 
greater than or equal to J. This is the position of the last element of 
JCARD to be UNPACked (the right-hand end of a field). 

The name of a one-dimensional integer array defined in a DIMENSION 
statement. This is the array into which the data is UNPACked, in Al 
format, one character per word. 

K - An integer constant, an integer expression, or an integer variable. This 
is the position of the first element of KCARD to receive the UNPACked 
characters (the left-hand end of a field). 

Detailed description : The characters in the JCARD array (A2) are UNPACked left to 
right, starting with JCARD(J), and placed in the KCARD array (Al), starting with 
KCARD(K). Each element of JCARD, when UNPACked, will require two elements of 
KCARD. More detailed information may be found in the PACK/UNPAC flowchart and 
listing. 



JLAST 



KCARD - 



Example: 



DIMENSION IUNPK(26),IPAKD(26) 
CALL UNPAC (IPAKD,1,13,IUNPK,1) 



Before: 



IPAKD THISblNFORMATIONbWILLbUNPACKEDbbbbbbbbbbbbbbbbbbbbbb 

I I 



Position 



10 



15 



20 



25 
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IUNPK FblbLbLbbblbNbbbTbHblbSbbbAbRbEbAbbbbbbbbbbbbbbbbbbb 

Mil 

Position 15 10 15 



20 



25 



After: 

IPAKD is the same. 

IUNPK TbHblbSbbblbNbFbObRbMbAbTblbObNbbbWbDjLbLbbbUbNbPbAb 

i 



Position 15 10 15 20 25 

Note that each two characters shown above represent one element of the array. 

Errors : None 

Remarks: IE JLAST is less than or equal to J, only the first element of JCARD,JCARD(J) 
will be UNPACked into the first two elements of KCARD. An even number of characters 
will always be UNPACked into KCARD. An equation for how much space is required, in 
elements, in KCARD is 

Space in KCARD = 2 (JLA.ST-J+1) 
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WHOLE 

Format : WHOLE (EXPRS) 

Function : Truncates the fractional portion of a real expression. 

Parameter description: 

EXPRS - A real expression. This is the expression that is truncated (the frac- 
tional part is made zero). 

Detailed description : The result of the expression is shifted right until the fractional 
portion has been shifted off. Then the result is shifted left to give the original result 
with a zero fraction. 

Example: 



Before: 



A=WHOLE(.l*B) 

A=0.0 

B=71234. 99 
After: 

A=7123.000 

B=71234. 99 
The expression, (. 1*B), has been evaluated, and the fractional portion has been dropped. 
Errors : None 

Remarks : The argument, EXPRS, must always be a real expression. If the purpose is 
to simply truncate the fraction from a number A, the expression must be (1. 0*A). 
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PROGRAMMING NOTES 

The 1130 Commercial Subroutine Package expects all alphameric information to be one 
character per word. Thus, input of data, when using standard FORTRAN READ state- 
ments, should be similar to the following: 

DIMENSION 1(80) 

1 FORMAT(80A1) 

IN=2 

READ(IN,1)I 

The above coding will read 80 characters of information, an 80-column card, placing 
each character in an 1130 word. The input data is now available to the user for any and 
all processing. Standard FORTRAN WRITE statements for information that was READ 
under Al format should also be under Al format. 

Input of data, when using the READ subroutine, will automatically be in Al format. 
Also, PRINTing, PUNCHing, and TYPEing assume Al format. 

Before any STOP or PAUSE, the user must always place the statement 

CALL IOND 

This will ensure that all interrupts for input/output operations have been serviced. 

In order to test for a channel 9 or a channel 12 indication from the 1132 Printer, the 
user should place the test after the CALL to the PRINT subroutine. 

N=0 

CALL PRINT(IOUT,1,120,N) 

IF(N-3) 1,2,3 

1 No indication 

2 Channel 9 is now being printed on 

3 Channel 12 is now being printed on 

If the test is not placed directly after the CALL to PRINT, erroneous conditions may be 
indicated. 

With one exception, all I/O devices must use either FORTRAN I/O exclusively or 
Commercial Subroutine Package I/O exclusively. The exception is as follows: if 
the console printer uses Commercial Subroutine Package I/O, only the 1132 Printer 
may use either FORTRAN I/O or Commercial Subroutine Package I/O. 
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Also, the IOCS control record should not reference any devices other than disk, since 
this will cause subroutines, which will not be used, to reside in core storage. All 
parameters required by each subroutine must be supplied when programming, or results 
will be erroneous. 

If the user wishes to use the TRACE facilities of FORTRAN, he must use standard 
FORTRAN READs and WRITEs. After the TRACE facilities have served their purpose, 
the FORTRAN READs and WRITEs should be converted to CALLs to the I/O subroutines 
supplied with this package. 

All programs using the 1130 Commercial Subroutine Package must be compiled with the 
control statement * ONE WORD INTEGERS. 

The package has been prepared with Extended Precision. There are notes under 
"Modification Aids" for the user who wishes to use standard precision. When using the 
Extended Precision package, the user's program must also be compiled with the control 
statement * EXTENDED PRECISION. 

One very useful technique involves the NZONE subroutine. It is possible to have a five- 
way switch by coding as follows: 

CALL NZONE(ISWT,l,5,I) 
IF(I-5) 2,1,1 

1 The switch is a special character 

2 GO TO (3 ,4,5 ,6), I 

3 The switch has a 12 zone 

4 The switch has an 11 zone 

5 The switch has a zone 

6 The switch has no zone 

If each of the possible zones is expanded by actually using the digit of the switch, it 
becomes a 38 -way switch. 

In order to move a zone from one character to another, the following coding can be used: 

CALL NZONE(ICHl,l,5,J) 

CALL NZONE(ICH2,l,J,I) 

The character at ICH2(1), unless it was a special character, now has the zone of the 
character at ICH1(1). 

Also, NSIGN may be used to move signs from one field to another. 
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CALL NSIGN(IFLD1,LAST,N,N) 

CALL NSIGN(IFLD2,IEND,N,I) 

When using the disk cartridge for storage of data, it is suggested that all data to be used 
in FORTRAN arithmetic statements be converted to real format. All alphameric infor- 
mation should be PACKed before it is written onto the disk. Decimal information should 
be converted to Al format and then PACKed before it is written onto the disk. These 
methods will allow more information to be stored on the disk cartridge. 

Half -adjusting, as explained in the description of the PUT routine, is very important to 
the accuracy of calculations. To be completely safe (that is, to write programs so that 
precision does not become a problem), the program should perform all arithmetic opera- 
tions in mills. Then use the PUT routine to half-adjust and truncate the mills position. 
The EDIT routine may then be used to place the decimal point and any other edit charac- 
ter. An example is as follows: 



Meaning 

Allocate storage 

Describe input 

Describe output 

Input unit 

Output unit 

Read edit -mask (bbbbb$.bb) 

Input 

Extract rate (cc 30-34) already in mills 

Extract hours (cc 40-43) and add a zero to 
make them mills 

Calculate current earnings (now in thou - 
sandths of mills) 

CURR=WHOLE((CURR+500.0)/1000.0) Half -adjust, make current earnings mills, 

and truncate any fraction 



FORTRAN Statements 

DIMENSION IN(80),IOUT(9),ITMP(7) 

1 FORMAT (8 0A1) 

2 FORMAT(9HbGROSS IS.9A1) 
IREAD=2 
IWRIT=3 

READ(IREAD,l)IOUT 
READ(TREAD,1)IN 
RATE=GET(IN,30,34,1. 0) 
HRS=GET(IN, 40,43 ,10. 0) 

CURR=RATE*HRS 



GROSS=CURR+GET(IN,20,26,10. 0) 

CALL PUT(ITMP,1,7,GROSS,5.0,1) 

CALL EDIT(ITMP,l,7,IOUT,l,9) 

WRITE(IWRIT,2)IOUT 

CALL EXIT 

END 



Extract old gross (cc 20-26) making mills, 
and calculate new gross 

Half-adjust, truncate, and convert to Al 
format 

Place decimal point and dollar sign 

Print 

End of job 
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The above program will calculate gross pay. If there is an error in keypunching a field, 
the GET statement for that field will be zero. The GET routine can be changed and the 
computer made to stop, if a PAUSE, as stated under "Modification Aids", is appropri- 
ately placed. 

As mentioned under "General Description", precision errors can be a problem. There- 
fore, the following limits are set on the size of real numbers: 

+100,000,000.0 

-100,000,000.0 
If dollars and cents are used, the limits are: 

+1,000,000.000 

-1, 000, 000. 000 
As can be seen, an additional decimal place is carried to ensure accuracy. 
In mills (including the additional decimal place) the limits are: 

+1, 000, 000, 000. 

-1,000,000,000. 

When using the decimal arithmetic feature of the 1130 Commercial Subroutine Package, 
it is not necessary to half -adjust to compensate for the binary nature of the 1130. How- 
ever, when multiplication or division is involved, it is necessary to half-adjust to get to 
the nearest penny. This may be done by adding a constant of 5 to the mills position. 

To truncate a field (zero out part of the fraction), the user can employ the FILL sub- 
routine . The following statements show the multiplication of the hours worked (to two 
decimal places) by the rate (to three decimal places), half-adjusting in the third decimal 
place: 



Statement 

DIMENSION ERATE(5),IHRS(4),IWORK(9), 
IGROS(6),IFIVE(l) 

N=0 

IFIVE(1)=5 

CALL MOVE(IHRS,l,4,IWORK,6) 

CALL MPY(IRATE,l,5,IWORK,6,9,N) 

IF(N) 2,1,2 

CALL ADD(IFIVE,l,l,IWORK,l,7,N) 

CALL MOVE(IWORK,l,6,IGROS,l) 



Meaning 
Allocate storage 

Initialize 

Set up work area 

Multiply 

Overflow? 

Half -adjust in mills 

Place result and truncate 



C OVERFLOW CONDITION 
2 STOP 777 
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Remember that MPY and DIV both require the extension of the second field in the opera- 
tion. Also, the result may be located in the second field through the formulas given in 
the specific subroutine descriptions. 

There are no limits to the size ofnumbers when the decimal feature of the package is used. 
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MODIFICATION AIDS 

Since the source language of the subroutine package is mainly FORTRAN, modification is 
a relatively easy problem, provided the modification is well defined. 

In the listings there are comments as to where pauses could be conveniently placed to 
stop on error conditions. 

The following FORTRAN program may be used on an IBM 1130 or other machine to pro- 
duce the decimal equivalents of character codes. The only changes to the program may 
be the input and output unit numbers in statements 3 and 4, and the integer width in 
statement 2. The program reads a card which should contain up to 80 legal characters 
for that machine, and prints the character and its decimal equivalent. 

DIMENSION N(80) 

1 FORMAT(80A1) 

2 FORMAT(lX,Al,lX,I6) 

3 READ(2,1)N 

4 WRITE(3,2)(N(I),N(I), 1=1,80) 
STOP 

END 

The package has been prepared with Extended Precision. If the user wishes to use 
standard precision, he must, before compiling the routines, remove cards numbered: 



CSP00060 
CSP00280 
CSP00440 
CSP01080 
CSP01850 
CSP02150 
CSP02480 
CSP02760 
CSP03130 



CSP03310 
CSP03750 
CSP04340 
CSP04690 
CSP04920 
CSP05190 
CSP05460 
CSP09830 
CSP12860 



CSP14940 
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In addition, the user must change the PUT subroutine by replacing card number CSP01990 
with the following six cards: 



(cc 73-80) 



JTEST=IFIX(DIGS-10. 0*DIGT) 



11 IF(JTEST-10)9,10,10 



10 JTEST=JTEST-10 



DIGT=DIGT+1.0 



GO TO 11 



9 JCARD(JNOW)=256*JTEST-4032 



CSP01982 
CSP01985 
CSP01988 
CSP01991 
CSP01994 
CSP01997 
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SAMPLE PROBLEMS 



PROBLEM 1 



This program has been written to exercise each of the routines. A card is read and a 
code on that card initiates the operation of the specified routine. The card image is 
printed, before execution of the routine; the resulting variable is printed, if such a 
variable is associated with the routine; and the card image is printed, after execution of 
the routine. 

If the user's system has an 1132 Printer, switch on the console must be in the up 
position and all other switches in the down position. If the user's system does not have an 
1132 Printer, all switches on the console must be in the down position. 
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Sample Problem 1: Source Program 



»* SAMPLE PROBLEM 1 

* NAME SMPL1 

* IOCS(CARD.TYPEWRITER.1132 PRINTER) 
» ONE WORD INTEGERS 

* EXTENDED PRECISION 

* LIST ALL 



PAGE 01 

CSP09790 
CSPQ980O 
CSP09S10 
CSP 09820 
CSP 09830 
CSP0984Q 



SAMPLE PROBLEM 1 

C- GENERAL PURPOSE 1130 COMMERCIAL SUBROUTINE PACKAGE TEST PROGRAM. 

DIMENSION NCARDIBO)* NAMES(5.13) 

1 FORMAT I80A1) 

2 FORMAT C 1 10* 4F10.0. F10.31 

3 FORMAT (30H0N0W TESTING 1130 CSP ROUTINE .5A1.16H WITH PARAMETERS. 
X4F10.5. F10.3J 

4 FORMAT (13H CARD BEFORE* .80A1) 

5 FORMAT (13H CARD AFTER =»0OA1) 

6 FORMATUH .5I3.2X.12HCARD AFTER «.1X.80A1) 

7 FORMAT (1H0.4X.10HINDICATORS.3X.12MCARD BEFORE^ . IX .80A1 1 

8 FORMAT (10H ANSWER IS* F20.31 

c _ DEFINE UNIT NUMBERS OF I/O DEVICES* 

CALL DATSWIO.N) 
NREAD*Z 

NWRIT«2*I1/N)+1 
READ (NREAD.H NAMES 

10 READ INREAD.2) N. Vl» V2 . V3. V4, VAR 
IF IN) 98.98*99 

9S STOP 

99 WRITE (NWRIT.31 (NAMES(I.N). 1*1. 5). VI. V2 . V3. V4. VAR 

Nl-Vl 

N2«V2 

N3=V3 

N4*V4 

NVAR=VAR 

NER1-0 

NER2«0 

NER3=0 

NER4«0 

NER5-0 

READ (NREAD.H NCARD 

IFIN-71 21«21»22 
21 fcRITEtNWRIT.4) NCARD 
C GO TO 1130 CSP ROUTINE 

GO TO (11. 12. 13*14*15. 16. 17). N 
C COMP ROUTINE 

11 ANS»NC0MP(NCARD.N1.N2»NCARD»N3) 
GO TO 19 

C-.-...M0VE ROUTINE 

12 CALL M0VE1NCARD.N1.N2.NCARD.N31 
GO TO 20 

C NZONE ROUTINE 

13 CALL NZONEINCARD.N1.N2.N3I 
AN5-N3 

GO TO 19 
C EDIT ROUTINE 

14 CALL EDITINCARD.N1.N2.NCARD.N3.N4) 
GO TO 20 

C GET ROUTINE 

15 ANS=GET( NCARD. Nl.N2.V3) 
GO TO 19 

C PUT ROUTINE 

16 CALL PUT(NCARD.N1»N2»VAR.V3.N4) 



PAGE 02 

CSP09850 
CSP0986O 
CSP09870 
CSP09880 
C5P09890 
CSP09900 
CSP0991O 
CSP09920 
CSP09930 
CSP09940 
CSP09950 
CSP 09960 
CSP0997O 
CSP09980 
CSPQ9990 
CSP10000 
CSP10010 
CSP10020 
CSP10030 
CSP 10040 
CSP10050 
CSP10060 
CSP10070 
CSP10080 
CSP10090 
CSP101O0 
CSP10110 
CSP10120 
CSP10130 
CSP10140 
CSP10150 
CSP10160 
CSP10170 
CSP101BO 
CSP10190 
CSP10200 
CSP10210 
CSP10220 
CSP10230 
CSP10240 
CSP10250 
CSP1026Q 
CSP10270 
CSP10280 
CSP10290 
CSP10300 
CSP10310 
CSP10320 
CSP10330 
CSP10340 
CSP10350 
CSP10360 
CSP10370 
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SAMPLE PROBLEM 1 

GO TO 20 

C- FILL ROUTINE 

17 CALL FILL<NCARD«N1*N2«NVAR> 

GO TO 20 

19 WRITE (MWRITiSJ ANS 

20 WRITE MWRIT.5) NCARD 
GO TO 10 

22 WRITE1NWRIT.7I NCARD 
C A10EC ROUTINE 

CALL A1DEC.NCARD.N1.N2.NER1) 
CALL AlDECtNCARDtN3,N4»NER2> 
N»N-7 

GO TO ( 23.24 *25»26. 27*28) tit 
C— — ADD ROUTINE 

23 CALL ADD(NCARD.Nl»N2»NCARDtN3»N4»NER3) 
GO TO 29 

C SUB ROUTINE 

24 CALL SU8f NCARD »NltN2. NCARD, N3.N4.NER3) 
GO TO 29 

C MPY ROUTINE 

25 CALL MPY(NCARDtNltN2»NCARD.N3.N4.NER3) 
GO TO 2 9 

C DIV ROUTINE 

26 CALL DIV(NCARD,Nl»N2tNCARD.N3.M4*NER3> 
GO TO 29 

C ICOMP ROUTINE 

27 NER3-ICOMP(NCARD»Nl.N2tNCARD*N3.N4> 
GO TO 29 

C — N5IGN ROUTINE 

2B CALL NSIGNtNCARD,Nl.NVAR,NER3) 
C OECA1 ROUTINE 

29 CALL DECA1 tNCARD*Nl.N2tNER4) 
IFIN-3) 33t32.30 

30 IF1N-4) 33*3lt33 

31 JSPAN*N2-N1 
KSPAN=N4-N3 
KSTRT=N3-J5PAN-1 
N3=N4-J5PAN 

CALL DECA1INCARD.KSTRT»N3-1»NER5) 
GO TO 33 

32 N3*N3-N2+N1-1 

33 CALL DECA1CNCARD«N3»N4.NER5> 
WRITEINWRIT.6) NER1 .NER2 .NER3 #NER4,NER5 »NCARD 
GO TO 10 

END 



PAGE 03 

CSP10380 

CSP10390 

CSP10400 

CSP1041O 

CSP10420 

CSP10430 

CSP10440 

CSP10450 

CSP10460 

CSP10470 

CSP10480 

C5P10490 

CSP10500 

CSP105IO 

CSP10520 

CSP10530 

CSP10540 

C5P10550 

CSP10560 

CSP10570 

CSP10580 

CSP10590 

C5P10600 

CSP10610 

C5P10620 

CSP1O6 30 

CSP10640 

CSP10650 

CSP10660 

CSP10670 

CSP106B0 

CSP10690 

CSP10700 

CSP10710 

CSP1O720 

CSP10730 

CSP10740 

CSP10750 

CSP10760 

CSP10770 

CSP10780 

CSP10790 

C5P1O8O0 

CSP10810 

CSP10820 



SAMPLE PROBLEM 1 

VARIABLE ALLOCATIONS 
VI eOOOO V2 "0003 
NWRIT*00A8 I -00A9 



=0006 V4 -0009 VAR »000C ANS *O0OF NCARD-0064 NAMES-Q0A5 N -00A6 NREAD=Q0A7 
_„, nnD ^ ,. c nn =0OAA N2 -OOAB N3 -OOAC N4 -OOAD NVAR =OOAE NERI = QOAF NER2 =0OB0 NER3 = 0OBl 

NER4 = 00B2 NER5 =00B3 JSPAN=0OB4 KSPAN=O0B5 KSTRT-G0B6 



STATEMENT ALLOCATIONS 

1 «0OCO 2 =00C3 3 

99 *016C 21 -01C8 11 

20 *022B 22 =0231 23 

31 *02A6 32 = 02CE 33 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 
IOCS 

CALLED SUBPROGRAMS 
DATSW NCOMP MOVE N20NE 
DECA1 ELD ESTO IFIX 
STOP CARDZ PRNTZ 

INTEGER CONSTANTS 

0=00B8 2«00B9 1=OOBA 5»0OB8 7-OOBC 

CORE REQUIREMENTS FOR SMPL1 
COMMON VARIABLES 184 PROGRAM 570 

END OF COMPILATION 



'00C8 


4 


■ C0E7 


5 


-00F2 


6 


■OOFD 


7 


-010D 


a 


-0122 


10 










12 


■01E6 


13 


= 01EF 


14 


-01FC 


15 


= 0206 


16 


■0210 


17 








>02DS 




■02SF 


2!> 


-026A 


26 


"0275 


2! 


-0280 


28 


»028C 


29 


■0292 


30 


■02A0 



EDIT 
FLOAT 



GET 
WRTYZ 



PUT 
SREO 



FILL 
SWRT 



A1DEC 
SCOMP 



ADD 
SFIO 



SUB 

SIOAI 



MPY 
SIOIX 



DIV 
SI OF 



ICOMP 

SIOI 



NSIGN 
SUBSC 



-80- 



Sample Problem 1: Output 



NOW TESTING 
CARD BEFORE 

ANSWER IS 
CARD AFTER 

NOW TESTING 
CARD BEFORE 
ANSWER IS 

CARD AFTER - 

NOW TESTING 
CARD BEFORE' 
ANSWER IS 
CARD AFTER = 

NOW TESTING 
CARD BEFORE' 
CARD AFTER ■ 

NOW TESTING 
CARD BEFORE' 
CARD AFTER • 

NOW TESTING 
CARD BEFORE" 
ANSWER IS 
CARD AFTER ' 

NOW TESTING 
CARD BEFORE' 
ANSWER IS 
CARD AFTER - 

NOW TESTING 

CARD BEFORE; 
ANSWER IS 
CARD AFTER ■ 

NOW TESTING 
CARD BEFORE^ 
ANSWER IS 
CARD AFTER : 

NOW TESTING 
CARD BEFORE^ 
ANSWER IS 
CARD AFTER > 

NOW TESTING 
CARD BEFORE 
ANSWER IS 



1130 CSP ROUTINE NCOMP WITH 
*A8CDEFGHlJKLMN0P0RST 

-544.000 
=ABCDEFGH|JKLMNOPQRST 

1130 CSP ROUTINE NCOMP WITH 
<BC8D F BC8D F 

0*000 
'BCSD F BC8D F 

1130 CSP ROUTINE NCOMP WITH 
JKLMN 
448*000 
* JKLMN 

1130 CSP ROUTINE MOVE WITH 
=ABCDE 
«ABCDE ABCDE 



PARAMETERS 1*00000 10*00000 11.00000 



PARAMETERS 1.00000 10*00000 11.00000 



PARAMETERS 
CBAFG 



CBAFG 
PARAMETERS 



20*00000 25*0 0000 3 0.00000 



1,00000 5.00000 2 0.00000 



40*00000 
9876543210 
9876543210 



49.00000 1.00000 



1130 CSP ROUTINE MOVE WITH PARAMETERS 
'9876543210 

1130 CSP ROUTINE NZONE WITH PARAMETERS 10.00000 5.00000 0.00000 
A 

1,000 
A 

1130 CSP ROUTINE NZONE WITH PARAMETERS 10.00000 5.00000 0,00000 
I 

1.000 



1130 CSP ROUTINE NZONE WITH 

4.000 



PARAMETERS 20.00000 5.00000 0.00000 



1130 CSP ROUTINE NZONE WITH PARAMETERS 20.00000 5.QOO0Q 
9 
4.000 

9 

1130 CSP ROUTINE NZONE WITH PARAMETERS 30.00000 5.00000 
J 
2.000 



1130 CSP ROUTINE NZONE WITH 
2.000 



PARAMETERS 30.00000 5.00000 0.00000 



0.00000 
2CSP1086G 



0.00000 
4CSP10880 



.00000 
6CSP1Q9Q0 



0.00000 

8CSP10920 
8CSP10920 

0.00000 
10CSP10940 
10CSP10940 

0,00000 
12CSP10960 

12CSP10960 

0.00000 
14CSP1Q9B0 

14CSP10980 

0.00000 
16CSP11000 



0.00000 
18CSP11020 

18C5P11020 

U. 00000 
20CSP11040 

20CSP11040 

0.00000 
22CSP11060 
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CARD AFTER - r 

NOW TESTING 1130 CSP ROUTINE NZONE WITH PARAMETERS 
CARD BEFORE* A 

ANSWER IS 1.000 

CARD AFTER ■ A 

NOW TESTING 1130 CSP ROUTINE N20NE WITH PARAMETERS 
CARD BEFORE* 1 

ANSWER IS 4.000 

CARD AFTER - A 

NOW TESTING 1130 CSP ROUTINE NZONE WITH PARAMETERS 
CARD BEFORE* J 

ANSWER IS 2.000 

CARD AFTER « A 

NOW TESTING 1130 CSP ROUTINE NZONE WITH PARAMETERS 
CARD BEFORE" \ 

ANSWER IS 1.000 

CARD AFTER * 9 

NOW TESTING 1130 CSP ROUTINE NZONE WITH PARAMETERS 
CARD BEFORE* 9 

ANSWER IS 4.000 

CARD AFTER = R 

NOW TESTING 1130 CSP ROUTINE NZONE WITH PARAMETERS 
CARD REFORE= R 

ANSWER IS 2.000 

CARD AFTER = Z 

NOW TESTING 1130 CSP ROUTINE NZONE WITH PARAMETERS 
CARD BEFORE= D 

ANSWER IS 1.000 

CARD AFTER = U 

NOW TESTING 1130 CSP ROUTINE NZONE WITH PARAMETERS 
CARD BEFORE* 4 

ANSWER IS 4.000 

CARD AFTER * M 

NOW TESTING 1130 CSP ROUTINE NZONE WITH PARAMETERS 
CARD BEFORE* m 

ANSWER IS 2.000 

CARD AFTER * 4 

NOW TESTING 1130 CSP ROUTINE EDIT WITH PARAMETERS 
CARD BEF0RE=123456 , $. CR 

CARD AFTER -123456 SI. 234*56 

NOW TESTING 1130 CSP ROUTINE EDIT WITH PARAMETERS 
CARD BEFORE=02343K . S, CR 

CARD AFTER "02343K S234.32CR 



22CSP11060 

O.OOOQO 0.000 
24CSP11080 

24CSP11080 

0.00000 0.000 
26CSP1UQC 

26CSP11100 

0.00000 0.000 
28CSPU120 



28CSPU120 



0.00000 0.000 

30CSP11140 



30CSP11140 



0.00000 0.000 

32CSP11160 



20.00000 3 .00000 0.00000 



32CSP11160 



0.00000 0.000 

34CSPIH80 



6*00000 20.00000 



l.OOOOO 6.00000 20.00000 



34CSPU180 

O.OUOOO 0.000 

36CSP11200 

36CSP11200 

0.00000 O.OUO 

38CSP11220 

38CSP11220 

O.UOQOO 0.000 

40CSP11240 

40CSPU240 

30.00000 0*000 

42CSP11260 

42CSP11260 

30.00000 0*000 

44CSP11280 

44CSP11280 



NOW TESTING 1130 CSP ROUTINE EDIT WITH PARAMETERS 1.00000 6.00000 20.00000 29.00000 0.000 



CARD B£FORE=00343- , 

CARD AFTER -O0343- 

NOW TESTING 1130 CSP ROUTINE EDIT 
CARD BEF0RE=123456? , 

CARD AFTER =1234567 *« 

NOW TESTING 1130 CSP ROUTINE EDIT 
CARD BEFORE-Q0005M , 

CARD AFTER -OC005M »•**«**#«*«** 

NOW TESTING 1130 CSP ROUTINE EDIT 
CARD BEFORE* 5M , 

CARD AFTER - 5M 

NOW TESTING 1130 CSP ROUTINE GET 
CARD BEF0RE-12345 
ANSWER IS 123*449 

CARD AFTER "12345 

NOW TESTING 1130 CSP ROUTINE GET 
CARD BEFQRE-1234N 
ANSWER IS -123.449 

CARD AFTER "1234N 

NOW TESTING 1130 CSP ROUTINE GET 
CARD BEF0RE"1 3 5 7 
ANSWER IS 1030.506 

CARD AFTER "13 5 7 

NOW TESTING 1130 CSP ROUTINE GET 
CARD BEF0RE-12AB4 
ANSWER IS 0*000 

CARD AFTER "12AB4 

NOW TESTING 1130 CSP ROUTINE GET 
CARD BEFORE-1230- 
ANSWES IS -12300.000 

CARD AFTER -1230- 

NOW TESTING 1130 CSP ROUTINE GET 
CARD BEF0RE-123 
ANSWER IS 0.001 

CARD AFTER -123 

NOW TESTING 1130 CSP ROUTINE PUT 
CARD BEFORE" 
CARD AFTER -12345 

NOW TESTING 1130 CSP ROUTINE PUT 
CARD BEFORE* 
CARD AFTER »S9 



S34.30- 

WITH PARAMETERS 

■#*»#»# 

WITH PARAMETERS 
* . CR 
•00.54CR 

WITH PARAMETERS 
* - 
.54- 

WITH PARAMETERS 



1.00000 7.Q0Q0U 21.00000 



l.OOOOO 6.00000 1U.00O00 



1*00000 6*00000 2 0.00000 



1.00000 5.00000 



WITH PARAMETERS 1,00000 5.00000 



WITH PARAMETERS 1,00000 7.00000 0.00100 



WITH PARAMETERS 1*00000 5.00000 1.00000 



WITH PARAMETERS 1.00000 5,00000 1.00000 



WITH PARAMETERS 1.00000 3,00000 0.00001 



WITH PARAMETERS 1.00000 5,00000 



WITH PARAMETERS 1.00000 2*00000 5.00000 



46CSP11300 
46CSP11300 

28.00000 0.000 

48CSP11320 

48CSP11320 

30.00000 0,000 

50CSP113*.0 

50CSP1134O 

29.00O0Q 0.000 

52CSP11360 

52CSP11360 

0.00000 0.000 
54CSP11380 

54CSP11380 

0.00000 0,000 
56CSP11400 

56CSP11400 

0.00000 0*000 
58CSP11420 

58CSP11420 

0,00000 0*000 
60CSP11440 

60CSP11440 

0*00000 0.000 

62CSP11460 

62CSP11460 

0*00000 0.000 

64CSP11480 

64CSP11480 

0,00000 12345,000 
66CSP11500 
66CSP11500 

1*00000 12890.000 
68CSP11520 
68CSP11520 



'NOW TESTING 1130 CSP ROUTINE PUT WITH PARAMETERS 11.00000 15,00000 5.00000 1,00000 12345.000 
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CARD BEFORE* 

CARD AFTER » 01235 

NOW TESTING 1130 C5P ROUTINE POT 

CARD BEFORE* 

CARD AFTER ■ 0000340 

NOW TESTING 1130 CSP ROUTINE PUT 

CARD BEFORE* 

CARD AFTER ■ 0O*1OO0K 



NOW TESTING 1130 CSP ROUTINE FILL WITH 
CARD BEF0RE*ABCDEFGHIJ1C 
CARD AFTER - K 

NOW TESTING 1130 CSP ROUTINE FILL WITH 
CARD BEFORE" ABCDEFGH 

CARD AFTER * ASSSSSiH 



WITH PARAMETERS 10,00000 16*00000 50.00000 



WITH PARAMETERS 10,00000 17.00000 5. 00000 



PARAMETERS 1,00000 10.00000 0.00000 



PARAMETERS 20,00000 25,00000 0.00000 



70CSPU540 
70CSP11540 

2,0000 0-34567,000 
72CSP11560 
72C5P11560 

1,00000 '16.000 
74C5PH580 
74CSP11580 

0.00000 16448.000 
76CSP11600 
76CSP11600 

0.00000 23360,000 
78CSP11620 
78CSP11620 



NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 31.00000 35.00000 66.00000 70.00000 



INDICATORS 




CARD BEFORE* 
CARD AFTER * 



24 
00024 



NOW TESTING 1130 CSP ROUTINE SUB WITH PARAMETERS 31.00000 35.00000 66.00000 70.00000 



INDICATORS 





CARD BEFORE* 
CARD AFTER ■ 



24 

00024 



2048 

02072 



2048 

0202*. 



NOW TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 31.00000 35.00000 66,00000 70.00000 



INDICATORS 





CARD BEFORE* 
CARO AFTER » 



NOW TESTING 1130 CSP ROUTINE OIV WITH PARAMETERS 



INDICATORS 




CARD BEFORE* 
CARD AFTER - 



00024 
31,00000 35,00000 



24 
00024 



2048 
0000049152 



66.00000 70.00000 



2048 
0008500008 



NOW TESTING 1130 CSP ROUTINE ICOMP WITH 

INDICATORS CARD BEFORE* 
0-200 CARD AFTER * 

NOW TESTING 1130 CSP ROUTINE NSIGN WITH PARAMETERS 

INDICATORS 



PARAMETERS 31.00000 35.00000 66.00000 70,00000 



00024 
1.00000 1,00000 



2.00000 2.00000 



CARD BEFORE* 65 
10 CARD AFTER * 65 

NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 31.00000 35.00000 66.00000 70.00000 



INDICATORS 





CARD BEFORE* 
CARD AFTER « 



NOW TESTING 1130 CSP ROUTINE SUB WITH PARAMETERS 



00099 
31,00000 35.00000 



2048 
02048 



2048 
02147 



CSP11640 
CSP11640 



CSPU660 
CSP11660 



CSP116B0 
CSP11680 



CSP11700 
CSP11700 



CSP11720 
CSP11720 



CSP11740 
CSP11740 



CSP11760 
CSP11760 



66.00000 70.00000 



INDICATORS 




CARD BEFORE* 
CARD AFTER * 



NOW TESTING 1130 CSP ROUTINE MPY 



INDICATORS 





CARD BEFORE* 
CARD AFTER = 



NOW TESTING 1130 CSP ROUTINE DIV 



00099 
WITH PARAMETERS 31,00000 35,00000 66.00000 70.00000 

99 

00099 

WITH PARAMETERS 31.00000 35.00000 66.00000 70.00000 



2048 
01949 



2048 

0000202752 



INDICATORS 




CARD BEFORE' 
CARD AFTER ' 



NOW TESTING 1130 CSP ROUTINE 



00099 
ICOMP WITH PARAMETERS 31.00000 35.0O0O0 66.00000 70.00000 



2048 
0002000068 



INDICATORS 
0-200 



CARD BEFORE* 
CARD AFTER - 



NOW TESTING 1130 CSP ROUTINE NSIGN WITH PARAMETERS 



00099 
1,00000 1,00000 



2048 
02046 



2.00000 2.00000 



INDICATORS 
10 



CARD BEFORE" 
CARD AFTER = 



NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 1.00000 20.00000 41.00000 70.00000 



INDICATORS 




CARD BEFORE* 
CARD AFTER > 



12345678901234567890 
12345678901234567B90 



123456789012345678901234567890 
1234567890246913&7802469135780 



NOW TESTING 1130 CSP ROUTINE SUB WITH PARAMETERS 1.00000 20.00000 41.00000 70.00000 



INDICATORS 




CARD BEFORE* 
CARD AFTER ' 



12345678901234567890 
12345676901234567890 



123456789012345678901234567890 
12 34567890000000O00000Q0000000 



NOW TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 1.00000 20.00000 41.00000 70.00000 



INDICATORS 




CARD BEFORE* 
CARD AFTER = 



12345678901234567890 



12 3456789012345678901234567890 



12345678901 2 345678900 152 4 157B76323B8 367503429357750 1905 199B75019052 100 
NOW TESTING 1130 CSP ROUTINE DIV WITH PARAMETERS 1.00000 20,00000 41.00000 70.00000 0.000 



INDICATORS 

ooooo 



CARD BEFORE* 
CARD AFTER ■ 



12345678901234567890 123456789012345678901234567890 

1234567B901 2 345 678900000000000000000000 100000 00000000000000012 34567890 



CSP11780 
CSP11780 



CSP118Q0 

CSPU800 



CSP11820 
CSP11820 



CSP11840 
CSP11840 



CSP11860 
CSP11B60 



cspusao 
cspuseo 



CSP11900 
CSP11900 



CSP11920 
CSP11920 



CSP11940 
CSP11940 



NOW TESTING 1130 CSP ROUTINE ICOMP WITH PARAMETERS 1. OOOOO 20.00000 41.00000 70,00000 



INDICATORS 
0-100 



CARD BEFORE* 
CARD AFTER • 



123456789012 34567890 
12345678901234567890 



123456769012345678901234567890 
12345 67890 1234567B901 2 34567890 



NOW TESTING 1130 C5P ROUTINE NSIGN WITH PARAMETERS 1 .00000 1,00000 2.00000 2.00000 



INDICATORS 

10 



CARD BEFORE* 
CARD AFTER « 



CSPU960 
CSP11960 



CSP11980 
CSP11980 



NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 1. OOOOO 20,00000 41.00000 70.00000 
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INDICATORS 



CARD BEFORE" 1234567890123456789- 
CARD AFTER = 1234567890123456789- 



12 34567890 12 3456 78901 234567890 

12 34567890000000 00000000000000 



NOW TESTING 1130 CSP ROUTINE SUB WITH PARAMETERS 1.00000 20.00000 41,00000 70.00000 



INDICATORS 



CARD BEFORE- 1234567890123456789- 
CARO AFTER » 1234567890123456789- 



12345678901234 56 789012 34567890 
12 3456789024691357802469135 780 



NOW TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 1.00000 20.00000 41.00000 70,00000 



INDICATORS CARD BEFORE* 1234567690123456789- 



1234567890 12345678901 234567890 



CARD AFTER » 1234567B9O123456799-O15241578753238836750342935775019O5199875O19O521Q- 
NOW TESTING 1130 CSP ROUTINE DIV WITH PARAMETERS 1.00000 20.00000 41.00000 70.00000 0.000 



INDICATORS 



CARD BEFORE* 1234567890123456789- 123456789012345678901234567890 

CARD AFTER ■ 1234567890123456789-O00O00G00OQ0Q0O0OOO1OOOOO0000-O0O0QQO00Q1234567890 



NOW TESTING 1130 CSP ROUTINE ICOMP WITH PARAMETERS 1.00000 20.00000 41.00000 70,00000 



INDICATORS 



CARD BEFORE* 1234567890123456789- 
CARD AFTER = 1234567890123456789- 



123456789012345678901234567890 
1234567B90 12345678901234567890 



CSP12000 
CSP12000 



CSP1202Q 
CSP12020 



CSP12040 
CSP12040 



CSP12060 
CSP12O60 



CSP12080 
CSP12080 



NOW TESTING 1130 CSP ROUTINE NSIGN WITH PARAMETERS 1,00000 



INDICATORS 



CARD BEFORE- ON 
CARD AFTER = 6N 



NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 1.00000 20.00000 41.00000 70.00000 



INDICATORS 




CARD BEFORE- 12345678901234567890 
CARD AFTER ■ 12345678901234567890 



12 345678901234567890123456789- 
12 345678900000000000000000000- 



NOW TESTING 1*30 CSP ROUTINE SUB WITH PARAMETERS 1,00000 20,00000 41.00000 70.00000 



INDICATORS 



CARD BEFORE- 12346678901234567890 
CARD AFTER " 12345678901234567890 



12345678901234 567890123456 789- 
1234567B902469135780246913578- 



NOW TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 1.00000 20.00000 41.00000 70.UOOOO 



INDICATORS CARD BEFORE" 12345678901234567890 



12345678901234567890123456789- 



CARD AFTER " 123456769O123456789OO15241578753238636750342935775O19O5199B75O1905210- 
NOW TESTING 1130 CSP ROUTINE DIV WITH PARAMETERS 1.00000 20.00000 41.00000 70.00000 0.000 



INDICATORS 



CARD BEFORE" 12345678901234567890 12345678901234567890123456789- 

CARD AFTER « 123456789O1234567890OO0O0O0OQOOG0OG0OOO10OO0OQQOO-O00O0Q00O0123456789- 



NOW TESTING 1130 CSP ROUTINE ICOMP WITH PARAMETERS 1.00000 20.00000 41.00000 70.00000 



INDICATORS 
1 



CARD BEFORE" 12345678901234567890 
CARD AFTER - 12345678901234567890 



1234567890 1234567890123456789- 
12345678901234567690123456789- 



CSP12100 
CSP12100 



CSP12120 
CSP12120 



CSP12140 
CSP12140 



CSP12160 
CSP12160 



CSP12180 
CSP12180 



CSP12200 
CSP12200 



NOW TESTING 1130 C5P ROUTINE NSIGN WITH PARAMETERS 
INDICATORS CARD BEFORE" NM 



0-100 
NOW TESTING 1130 



INDICATORS 




CARD AFTER 
CSP ROUTINE 



= MM 
ADD WITH PARAMETERS 



1 ,00000 20.U000U 41.00000 70.0WOOO 



CARD BEFORE= 
CARD AFTER = 



1234567890123456789- 

12 34567890123456789- 



12 345 6789012 34 56 789012 3456 789- 

12 3^56789024691357302469135 78- 



NOW TESTING 1130 CSP ROUTINE SU3 WITH PARAMETERS 1.00000 20.0000U 



INDICATORS 




CARD 8EF0RE= 
CARD AFTER = 



1234567890123456789- 

123456 7890123456789- 



12 345 678901234 5 6 7890123456789- 

12 3456789000000000000 00000000- 



NOW TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 1.00000 20,00000 



(.1.00000 70,00000 O.000 

12 3456789012 34 56 78 9012 345678 9- 
1234567890123456789-01524157875323883675034293577501905199875019052100 

NOW TESTING U30 CSP ROUTINE DIV WITH PARAMETERS 1,00000 20,00000 41.00000 70.00000 0.000 



INDICATORS 




CARD BEFORE* 1Z345678901Z34567S9- 

CARD AFTER 



INDICATORS 




CARD BEFORE" 
CARD AFTER = 



1234567890123456789- 12345678901234567890123456789- 

12 3456 7 89O12345 678 9-0O00O00000000OU000010000O000O00000O00O00123456 789- 



NOW TESTING 1130 C5P ROUTINE ICOMP WITH PARAMETERS 1,00000 20,00000 41.00000 70.00000 



INDICATORS 
10 



CARD BEFORE= 
CARD AFTER = 



123456 789 0123456 789- 
12 34 56 7890123456789- 



12345678901234567S901234567B9- 
12 34567 89012 34567890123456 789- 



NOW TESTING 1130 CSP ROUTINE NSIGN WITH PARAMETERS 



INDICATORS 

0-100 



CARD BEFORE* 
CARD AFTER = 



NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 1,00000 20.00000 51.00000 70,00000 



INDICATORS 





CARD BEFORE= 
CARD AFTER * 



123456789012 34567890 

1234567B901234567890 



1234 56 78901234567890 
2469135780246913 5780 



NOW TESTING 1130 CSP ROUTINE SUB WITH PARAMETERS I. 00000 20,00000 51.00000 70,00000 



INDICATORS 





CARD BEFORE= 
CARD AFTER = 



12 34 56 789 012 34 567890 
12 3456789 012 34567890 



12345 678901234567890 

oooooouooooooooooooo 



NOW TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 1,00000 20,00000 51,00000 70.00000 



INDICATORS 





CARD BEFORE- 
CA-RD AFTER = 



123456789012 345 67890 
123456789012 3456789 



12 34 567890123456 78 90 
0152415787 53238836750190519987501905 2100 



NOW TESTING 1130 CSP ROUTINE DIV WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS 





NOW TESTING 1130 
INDICATORS 



CARD BEFORE" 
CARD AFTER ■ 



CSP ROUTINE 
CARD BEFORE= 



12345676901234567890 
12 345678901234567890 

ICOMP WITH PARAMETERS 

12345678901234 567890 



12345678901234567890 

00000 OOOOU 00000 0000 100000 ooooooooooooooo 



1.00000 20.00000 51.00000 70.00000 0.000 
1234567B90123456 7890 



CSP12240 
CSP12240 



CSP12260 
CSP12260 



CSP12280 
CSP122BO 



CSP12300 
CSP1230O 



CSP12320 
CSP1232Q 



CSP12340 
CSP12340 



CSP12360 
CSP12360 



CSP12380 
CSP12380 



CSP12400 
CSP12400 



CSP12420 
CSP12420 
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CARD AFTER • 12345678901234567890 123456789O1234567890 

NOW TESTING 1130 CSP ROUTINE NSIGN WITH PARAMETERS 1.00000 1.00000 2.0OOU0 2.00000 1.000 

INDICATORS CARD BEFORE= -0 
0-100 CARD AFTER « 00 

NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 0.000 



INDICATORS CARD BEFORE. 1234567890123456789- 
CARD AFTER = 1234567890123456789- 



12345678901234567890 

ooooooooouoooooooooo 



TESTING 1130 CSP ROUTINE SUB WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS CARD BEFORE. 1234567890123*56789- 
CARD AFTER = 1234567890123456789- 



12 3456 7 8901234567890 
24591357802469135780 



TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS CARD BEFORE' 1234567890123456789- 
CARD AFTER ■ 1234567890123456789- 



12345678901234567890 
015241578753238836750190519987501905210- 



CSP12460 
CSP12460 



CSP12480 
CSP12480 



CSP12500 
CSP12500 



CSP12520 
CSP12520 



NOW TESTING 1130 CSP ROUTINE BI< WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS CARD BEFORE. 1234567890123456789- 
CARD AFTER • 1234567B901234567S9- 



1234 5678901234567890 

OOOOOOOOOOOOOOOOOOUJOOQOOOOOOOOOOOOOQOOO 



TESTING 1130 CSP ROUTINE ICOMP WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS CARD BEFORE. 1234567890123*56789- 
0-100 CARD AFTER = 1234567890123456789- 



12345678901234567890 
12345678901234567890 



TESTING 1130 CSP ROUTINE NSIGN WITH PARAMETERS l.OODOO 1.00000 2.00000 2.00000 -1.000 



INDICATORS CARD BEFORE* -0 
0-1 CARD AFTER = -0 



NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS CARD BEFORE. 12345678901234567890 
CARD AFTER ■ 12345678901234567890 



12 3*567890123456789- 

OOOOOOUOUOOUOuUUUUO- 



CSP12540 
CSP12540 



CSP12560 
CSP12560 



CSP12580 
CSP12580 



CSP12600 
CSP12600 



TESTING 1130 CSP ROUTINE SUB WITH PARAMETERS 1.00000 20.00000 SI. 01)000 70.00000 



INDICATORS CARD BEFORE* 12345678901234567890 
CARD AFTER - 12345678901234567890 



1234567890123456789- 
2469135 78 0246913578- 



TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS CARD BEFORE. 12345678901234567890 
CARD AFTER = 12345678901234567B90 

NOW TESTING 1130 CSP ROUTINE DIV WITH PARAMETERS 

INDICATORS CARD BEFORE. 12345678901234567890 



12345678901234 56789- 
015241578753238836750190519987501905210- 

1.00000 20.00000 51.0VU00 70.00000 0.000 

1234567890123456789- 



C5P12620 
CSP12620 



CSP12640 
CSP12640 




NOW TESTING 1130 



CARD AFTER 
CSP ROUTINE 



INDICATORS 
10 



CARD BEFORE 1 
CARD AFTER ■ 



NOW TESTING 1130 CSP ROUTINE 



INDICATORS 
0-1 



CARD BEFORE 
CARD AFTER 



. 12345678901234567890 
ICOMP WITH PARAMETERS 

■ 12345678901234567890 
' 12345678901234567B90 

NSIGN WITH PARAMETERS 

■ -0 



000 0000000000 OOOOOOJOOOOOOOOOOO 00 0000 oo- 

1.00000 20.00000 51.00000 70.00000 0.000 

1234567890123456789- 
1234567890123456789- 

1.00000 1.00000 2.00000 2.00000 0.000 



NOW TESTING 1130 CSP ROUTINE ADD WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 0.000 



INDICATORS 




CARD BEFORE' 
CARD AFTER ' 



1234567890123456789- 
1234567890123*56789- 



1234567890123456789- 
2469135780246913578- 



NOW TESTING 1130 CSP ROUTINE SUB WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS 





CARD BEFORE' 
CARD AFTER ■ 



1234567890123456789- 
1234567890123456789- 



1234567890123456789- 

0000000000000000000- 



NOW TESTING 1130 CSP ROUTINE MPY WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS 




CARD BEFORE' 
CARD AFTER ' 



1234567890123456789- 
1234567890123456769- 



1234567890123456789- 
0152415787532388367501905199675019052100 



CSP12680 
CSP12680 



CSP12700 
CSP12700 



CSP12720 
CSP12720 



CSP12740 
CSP12740 



CSP12760 
CSP12760 



NOW TESTING 1130 CSP ROUTINE DIV WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 



INDICATORS 




CARD BEFORE' 
CARD AFTER > 



1234567890123456789- 
1234 567890123456789- 



123*56789012 3456 789- 
000000000000000000010000000000000006000- 



NOW TESTING 1130 CSP ROUTINE ICOMP WITH PARAMETERS 1.00000 20.00000 51.00000 70.00000 0.000 



INDICATORS 




CARD BEFORE' 
CARD AFTER ' 



1234567890123*56789- 
1234567890123456789- 



1234567890123456789- 
1234567890123456789- 



CSP12780 
CSP12780 



CSP12800 
CSP12800 
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Sample Problem 1: Data Input Listing 



NCOMPMOVE NZONEEDIT GET 
1 1 

ABCDEFGHIJKLMNOPOP.ST 
1 1 
BC8D F BC8D F 


PUT FILL 
10 

10 


ADO SUB MPY 
11 

11 


1 

2 

ABCDE 


20 
JKLMN 
1 


25 

C8AFG 
5 


30 
20 


2 


40 


49 


1 


3 

A 
3 


10 
10 


5 
5 


9876543210 


3 
3 

3 


20 


20 
9 

30 


5 
5 
5 





OIV ICOMPNS1GN 





3 


10 




1 






3 


10 




J 






3 


20 




3 


20 
9 




3 


20 
R 




3 


30 




3 


30 




3 


30 




* 


1 


123*56 








4 


1 


02343K 








4 


1 


003*3- 








4 


1 


123*567 








4 


1 


OO005M 








4 


1 


5M 







CSP1O840 
1CSP1O850 
2CSP10S60 
3CSP10B70 
4C5P10880 
5CSP10B90 
6CSP10900 
7CSP10910 
8CSP10920 
9CSP1O930 
10CSP 10940 
11CSP10950 
12CSP1O960 
13CSP1O970 
14CSP10980 
15CSP10990 
16CSP11000 
17CSP11010 
18CSP11020 
19CSP11O30 
20CSP11O40 
21CSP11O50 
22CSP11060 
23CSP11070 
24CSP11080 
25CSP11090 
26CSP11100 
27CSP11110 
28CSP11120 
29CSP11130 
3OCSP1U40 
31CSP11150 
32CSP11160 
33CSP11170 
34CSP11180 
35CSP11190 
36CSP11200 
37CSP11210 
38CSP11220 
39CSP11230 
40CSP11240 
41CSP11250 
42CSP11260 
43CSP11270 
44CSP 11280 
45CSP 11290 
46CSP11300 
47CSP11310 
48CSP11320 
49CSP11330 
50CSP11340 
51CSP11350 
52CSP11360 
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123*5 

1234N 
13 5 7 
12AB4 
1230- 
123 



ABCDEFGHIJK 



12 
13 



12 
13 





5 




.01 




5 




.01 




7 




• 001 




5 




1. 




5 




1. 




3 


.00001 




5 




0.5 




2 




5.0 


11 


15 




5.0 


10 


16 




50.0 


10 


17 




5.0 


1 


10 






20 


25 






ABCOEFGH 








31 


35 


2* 


66 


31 


35 


24 


66 


31 


35 


24 


66 


31 


35 


24 


66 


31 


35 




66 



31 

31 
31 
31 
31 

1 



12345678901234567890 

09 01 

12345678901234567890 



53CSP11370 
54CSP11380 
55CSPU390 
56C5P11400 
57CSP11410 
58CSP11420 
59CSP11430 
60CSP11440 
61CSP11450 
62CSP11460 
63CSP11470 
64CSP11480 

12345. 65CSP11490 

66CSP11500 

1 12890. 67C5P11510 

68CSP11520 

1 12345. 69CSP11530 

70CSP11540 

2 -34567. 71CSP11550 

72CSP11560 

1 -16. 73CSP11570 

74CSP115B0 

16448. 75CSP11590 

76C5P11600 

23360. 77CSP11610 

76CSP11620 

70 CSP11630 

2048 C5P11640 

70 CSP11650 

2048 CSP11660 

70 CSP11670 

2048 CSP116B0 

70 CSP11690 

2048 CSP11700 

70 CSP11710 

2048 CSP11720 

2 1. CSP11730 

CSP11740 

70 CSP11750 

2048 CSPU760 

70 CSP11770 

2048 CSP11780 

70 CSP11790 

2048 CSP1180O 

70 CSP11810 

2048 CSP11820 

70 CSP11830 

2046 CSP 11840 

2 -1. CSP11850 

CSP 11860 

70 CSP11870 

123456789012345678901234567890 CSP11B60 

70 CSP11890 

123456789012345678901234567890 CSP11900 



10 01 
12345678901234567890 

11 01 
12345678901234567890 

12 01 
12345678901234567890 

13 1 
32 

08 01 
1234567890123456789- 

09 01 
1234567890123456789- 

10 01 
1234567890123456789- 

11 01 
1234567890123456789- 

12 01 
1234567890123456789- 

13 1 
ON 

08 01 
12345678901234567890 

09 01 
1234567B9O1234567890 

10 01 
12345678901234567890 

11 01 
12345678901234567890 

12 01 
12345678901234567890 

13 1 
NH 



08 



01 



1234567890123456789- 

09 01 
1234567890123456789- 

10 01 
1234567890123456789- 

11 01 
1234567890123456789- 



20 
20 



20 
20 
20 
20 
20 
1 
20 
20 
20 
20 



41 70 

12345678901234567B90123456789O 
41 70 

123456789012345678901234567890 



41 



70 



123456789012345678901234567890 
2 2 



123456789012345678901234567890 
1 70 
123456789012345678901234567890 



123456789012345678901234567890 

1 70 
12 3456789012345678901234567890 



12345678901 2345678901 234567 B90 
2 2 1. 



1234567S90 1234567690 123456769- 
41 70 

12345678901234567890123456789- 
41 70 

12345678901234567690123456789- 



41 



70 



12345678901234567890123456789- 
41 70 

1234567890123456789012 3456789- 
2 2 -1. 

41 70 

12345678901234567890123456789- 
41 70 

123456789012345678901234567B9- 
41 70 

12345678901234567890123456769- 
41 70 

12345678901234567890123456789- 



CSP11910 
CSP 11 920 
CSP11930 
CSP 11 940 
CSP11950 
CSP11960 
CSP 11970 
CSP11980 
CSP11990 
CSP12000 
CSP12010 
CSP12020 
CSP12030 
CSP 12040 
CSP12050 
CSP1206O 
CSP 12070 
CSP 12080 
CSP12090 
C5P12100 
CSP12110 
CSP 12 120 
CSP12130 
CSP12140 
CSP12150 
CSP 12 160 
CSP12170 
CSP12180 
CSP12190 
CSP12200 
CSP12210 
CSP12220 
CSP12230 
CSP12240 
CSP12250 
CSP12260 
CSP 12270 
CSP12280 
CSP12290 
CSP1230O 



-87- 



PROBLEM 2 

The purpose of this program is to create invoices. The input deck is as follows: 







[ 1ST OP 










Last cust. 


/ 






•' 




/ 




/ Cust. 4 






/ 


/ Cust. 3 


/ 




/ 


/ Cust. 2 




/ 


/ Cust. 1 




/ 


/ 




/ 





New name 
and balance 
mastercard 



Transaction 
cards 



Name and 

balance 
master card 




Input deck 



Detailed description of individual customer deck 



Each customer has the old master name and balance card, followed by the transaction 
cards, followed by a blank master name and balance card. 

The invoice is printed as in the example, and a new master name and balance card 
image is printed on the console printer. Then the next customer is processed until the 
stop code card is reached (ISTOP in cc 1-5). 

In an actual situation the new card image would be punched and stacker-selected. Then, 
as input to the next run of the program, a new input deck would have to be prepared. 

This problem requires an 1132 Printer on the system. 
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Sample Problem 2: Detailed Description 

1. Read all constant information. 

2. Initialize error indicators. 

a. J=2 

b. 1=0, L=0, M=0 

3. Read the first card. It should be a master card. 

4. Is the card read in 3 the last card? 
No — 5 Yes — 64 

5. Is the card read in 3 above a master card? 
No — 72 Yes — 6 

6. Go to the top of a new page. 

7. Clear the print area. 

8. Print the customer name. 

9. Move the edit mark to the work area. 

10. Edit the previous balance. 

11. Print the customer street address. 

12. Move the words PREVIOUS BALANCE to the print area. 

13. Move the work area to the print area. 

14. Print the customer city, state, and zip code. 

15. Skip 3 lines. 

16. Print the column headings. 

17. Print the print area. 

18. Clear the print area. 

19. Convert the previous balance from Al format to decimal format. 
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20. Is the conversion in 19 correct? 
No - 66 Yes - 21 

21. Set the total (ISUM) equal to the previous balance. 

22. Set up the output area for the new master card. 

23. Read a card. 

24. Is the card read at 23 the last card? 
No — 25 Yes — 64 

25. Is the card read at 23 a master card ? 
No - 26 Yes - 52 

26. Is the card read at 23 a transaction card? 
No — 49 Yes — 27 

27. Is the card read at 23 for the same customer being processed? 
No — 49 Yes — 28 

28. Move the item name to the print area. 

29. Move the edit mask to the print area for dollar amount. 

30. Move the edit mask to the print area for quantity. 

31. Edit the quantity. 

32. Edit the dollar amount. 

33. Print the detail line assembled in 28 through 32. 

34. Has channel 12 on the carriage tape been encountered? 
No - 35 Yes - 46 

35. Convert the dollar amount from Al format to decimal format. 

36. Is the conversion in 35 correct? 
No — 40 Yes — 37 

37. Add the dollar amount to ISUM. 
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38. Did overflow occur in the addition in 37? 
No — 23 Yes — 39 

39. STOP and display 777. 

40. Make the character in error a digit. 

41. Try to convert only the character in error. 

42. Is the conversion in 41 correct? 
No — 43 Yes — 44 

43. STOP and display 666. 

44. Convert the entire field back to Al format. 

45. Go to 35. 

46. Go to the top of a new page. 

47. Print the headings. 

48. Go to 35. 

49. Type ERROR on the console printer. 

50. Type the card read on the console printer. 

51. Go to 23. 

52. Convert the total (ISUM) from decimal format to Al format. 

53. Is the conversion in 52 correct? 
No — 54 Yes — 55 

54. STOP and display 555. 

55. Clear the print area. 

56. Move the edit mask to the print area. 

57. Edit the total (ISUM). 

58. Place the unedited total (ISUM) in the new master card. 

59. Type the new master card image on the console printer. 
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60. Move the word TOTAL to the print area. 

61. Skip 2 lines. 

62. Print the print area, the total line. 

63. Go to 2b. 

64. Type END OF JOB. 

65. STOP and display 111. 

66 . Make the character in error a digit. 

67. Try to convert only the character in error. 

68. Is the conversion in 67 correct? 
No — 69 Yes — 70 

69. STOP and display 444. 

70. Convert the entire field back to Al format, 

71. Go to 19. 

72. Type ERROR on the console printer. 

73. Type the card read on the console printer. 

74. Go to 2b. 

Card Formats 



Customer Name 



99999999999999999999 

1 2 3 4 5 i T I I 10 11 « 13 14 15 II 17 If 19 a 



Street Address 



99999999399999999999 

21 222324252827282930 ol 32 33 34 35 36 37 38 .39 4« (1 42 43444546 47 48 49 50 51 52 53 545556 57 S3 59 I 



9999999999 9 999999999 



99999999 

61 82 $3 64 65 6G 67 6B 



C 

s 
p 

999 

73 74 



Card 
Seq. 
No. 



99999 

77 78 79 M 



Customer Name 



9999999999999999999 9 

1 1 3 t S 6 7 ■ 9 10 11 12 13 14 15 16 17 18 19 20 



Total 
Amt. 



99999999999999999999999 99999 

21 22 23 24 25 26 27 26 29 JO 31 32 33 34 35 36 37 38 39 4«,4I 42 43 44 45 46 47 



9999 

50 51 52 



99999999999999999 

S3 54 55 56 57 58 59 60 El E2 S3 64 65 ££ 67 £3 69 



c 

s 
p 

999 

73 74 



Card 
Seq. 



99999 

77 7J 73 80 
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1130 COMMERCIAL 



SAMPLE PROBLEM 2 



INITIALIZE 



NO 



HALT « ...-•. MASTER CARD 

*. *• 

'•YES 



PRINT HEADING 

AND PREVIOUS 

* BALANCE • 



• TOTAL 

• IS REPLACED BY 

• PREVIOUS 

• BALANCE 



.•TRANSACTION*. NO 

.NAME EQUAL TO 

*. MASTER .• 

••NAME .* 



TOTAL 

IS REPLACED BY 

TOTAL £ AMT 



.X*. MASTER CARD 



TYPE NEW 

MASTER Z\Ri3 

IMAGE 



PK1NT 
TOTAL 
LINE 
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Sample Problem 2: Source Program 



«• SAMPLE PROBLEM 2 

• NAME SMPL2 

• ONE WORO INTEGERS 
» EXTENDED PRECISION 

• LIST ALL 



PAGE 01 

CSP12830 
CSP12840 

CSP12850 
CSP12B60 
CSP12870 



SAMPLE PROBLEM 2 PAGE 02 

C— — THE INPUT IS MADE UP OF A MASTER CARD FOLLOWED BY THE TRANSACTION C5P12B80 

C —CARDS FOR EACH CUSTOMER. WE WANT TO PRINT AN INVOICE AND PRINT A CSP12890 

C NEW MASTER CARD FOR EACH CUSTOMER. C5P1290O 

DIMENSION 1NCRDI82I » 1MASKI 13) » IPRNTI 79 I » IOTCDC80) »ISTOPI 5) . CSP 12910 
1IHEADI801. IPRVBI16>.ITOT(5I.IHKI13!.ISUMia>>IERORI6l .IEOJU0) CSP12920 

CALL READI1E0J.1.10.J) CSP12930 

CALL READI1ER0R.1.6.J) CSP12940 

CALL READI 1MASK,1»13,J> CSP12950 

CALL READIIPRVB,1.16,JI CSP12960 

CALL READ(IHEA0.1.72,J> CSP12970 

CALL READ<IHEAD«73,80,J> CSP12980 

CALL READUST0P,1.5«JI CSP12990 

CALL READCITOT,l,5.J> CSP13000 

J-2 CSP1301O 

INCRDI81IM6448 CSP13020 

INCRD(82I'5440 CSP13030 

1 I"0 CSP13040 
L"0 CSP13050 
M-0 CSP13060 
CALL READ( INCRD.l.BO.JI CSP13070 
IF(J-l) 22.2.2 CSP13080 

2 IFINCOMPIINCRD.lfS.ISTOP.il) 3.22.3 CSP13O90 

3 CALL NZ0NEIINCRD.70.S.KI CSP13100 
IFIK-1) 26.4.26 CSP13110 

4 CALL SKIPI 12544) CSP13120 
CALL F1LLI IPRNT, 1,79,16448) CSP13130 
CALL PRINTIINCRD.1.20.I) CSP13140 
CALL MOVEI IMASK, 1. 13. IWK.ll CSP13150 
CALL EDIT! 1NCRD.61. 68. IMK. 1.13) CSP13160 
CALL PRINTIINCRD.21.40.il CSP13170 
CALL MOVEI IPRVB.1.16.IPRNT.23) CSP13180 
CALL MOVEI 1WK.1. 13. IPRNT .671 CSP13190 
CALL PRINTIINCRD.41.60.il CSP13200 
CALL SKIPI 16128) CSP13210 
CALL PRINTIIHEAD. 1.80.1) CSP13220 
CALL PRINTIIPRNT.1.79.I) CSP13230 
CALL FILLI IPRNT. 1.79. 164481 CSP13240 

40 CALL A1DECIINCRD.61.68.LI CSP13290 

IFILI 3.5.23 CSP13260 

5 CALL M0VEIINCRD.61.68.ISUM.il CSP13270 
CALL MOVEIINCRD.l. 80.IOTCD.il CSP13280 

6 CALL READ! INCRD.l.BO.JI CSP13290 
IFIJ-ll 22,7,7 CSP13300 

7 CALL NZ0NEIINCRD.70.S.KI CSP13310 
IFIK-ll 18,19,8 CSP13320 

8 IFIK-21 18,9,18 CSP13330 

9 !F(NCOHPt!NCRD,l,20,IOTCD,l>> 18,10.18 CSP13340 

10 CALL MOVEI INCRO. 21.40. IPRNT. 231 CSP13350 
CALL MOVEI IMASK. 1.13. IPRNT. 671 CSP13360 
CALL MOVEI IMASK. 3, 8, IPRNT ,71 CSP13370 
IPRNTI12)-- -4032 CSP13380 
CALL EDITIINCRD,49,S2,IPRNT,7,12I CSP13390 
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SAMPLE PROBLEM 2 

CALL E0ITUNCRD.41.48.IPRNTt67.79l 
CALL PRINTUPRNT.1.79.!) 
IFU-31 11.11.17 

11 CALL A1DECIINCRD.41.4S.LI 
IFILI 12.12.14 

12 CALL ADD! INCRD. 41.48. ISUM.1.8.M) 
1FIM) 13. 6.13 

13 CALL IOND 
STOP 777 

14 CALL NZ0NEIINCRD.L.4.N11 
Nl-0 

CALL A1DECIINCRD.L.L.N1) 
IF(Nl) 16.16.15 

15 CALL IOND 
STOP 666 

16 CALL 0ECA1IINCRD.41.48.LI 
L«0 

SO TO 11 

17 CALL SKIPU2544I 

CALL PRINTIlHEAOil.BO.il 

1-0 

GO TO 11 

18 CALL TYPERIIEROR.1.51 
CALL TYPER(INCR0.1.82> 
GO TO 6 

19 CALL DECA1USUM.1.8.LI 
IFILI 20.21.20 

20 CALL IOND 
STOP 555 

21 CALL F1LLIIPRNT. 1.79. 164481 
CALL M0VEI1MASIC.1.13.IPRNT.6TI 
CALL EDIT! ISUM.l. 8. IPRNT .67.791 
CALL MOVE! ISUM.l. 8.I0TCD.61I 
CALL TYPERM0TCD.1.80I 

CALL M0VEI1T0T. 1.5. IPRNT. 231 

CALL SKIPI15B72) 

CALL PRINTUPRNT.1.79. II 

CALL TYPERCINCR0.81.82I 

GO TO 1 

22 CALL TYPERCIEOJ. 1.101 
CALL IOND 

STOP 111 

23 CALL NZ0NEUNCRD.L.4.N1I 
Nl-0 

CALL A1DECIINCR0.L.L.N1I 
IF(N1I 25.25.24 

24 CALL IOND 
STOP 444 

25 CALL 0ECA1IINCRD.61.68.L) 
L-0 

GO TO 40 

26 CALL TYPERIIEHOR.1.51 



PAGE 03 

CSP13400 

CSP13410 

CSP13420 

CSP13430 

CSP I 3440 

CSP13450 

CSP 13460 

CSP13470 

CSP13480 

CSP 13490 

CSP13500 

CSP13510 

CSP13520 

CSP 135 30 

CSP13540 

CSP13550 

CSP13560 

CSP 13570 

CSP13580 

CSP 13590 

CSP13600 

CSP13610 

CSP13620 

CSP13630 

CSP 13640 

CSP 13650 

C5P13660 

CSP13670 

CSP13660 

CSP13690 

CSP13700 

CSP13710 

CSP13720 

CSP13730 

CSP 13740 

CSP13750 

CSP13760 

CSP13770 

CSP13780 

CSP13790 

CSP13800 

CSP13810 

CSP13820 

CSP 138 30 

CSP13840 

CSP13850 

CSP13860 

CSP13870 

CSP13880 

CSP13890 

CSP13900 

CSP13910 



SAMPLE PROBLEM 2 

CALL TYPERIINCRO. 1.821 
GO TO 1 

END 



CSP13920 
CSP13930 
CSP 13940 



SAMPLE PROBLEM 2 
VARIABLE ALLOCATIONS 



IHEAD-0152 IPRVB-0162 ITOT -0167 IWK -0174 ISUM -017C 



issssj issrsss i r T :%% r CD ™° - stop --f « HW z™ « -" «r :s;i 



STATEMENT ALLOCATIONS 

1 -0206 2 -021E 3 

10 -02C1 11 -02F9 12 

20 -0350 21 -0361 22 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
READ NCOMP N20NE SKI 

INTEGER CONSTANTS 

1-0196 10-0197 



1644B-01AO 
40-01 AA 
49-01B4 
81-01BE 



-0227 


it 


-0233 


40 


-0280 


5 


-028A 


6 


• 0298 


7 


-02A4 


S 


«02»2 


-0303 


13 


-0310 


14 


• 0314 


15 


-0328 


16 


•032C 


17 


-0338 


18 


-0347 


■0399 


23 


-03A2 


24 


•03B6 


25 


-03BA 


26 


-03C6 











-0208 
-0353 



PRINT MOVE 



DECA1 TYPER STOP 



5440-01A1 

23-01AB 

52*0165 

111-01BF 



6-0198 

0-01A2 

67-01AC 

12-01B6 

444-01C0 



13-0199 
70-01A3 
4 1-0 IAD 
48-0187 
1911-01C1 



16-019A 

12544-01A4 

60-01AE 

777-01B8 

1638-01C2 



72-0 19B 

79-0 1A5 

16128-01AF 

4-01B9 

1365-01C3 



CORE REOUIREMENTS FOR SMPL2 
COMMON VARIABLES 406 PROGRAM 

END OF COMPILATION 



73«019C 

20-01A6 

3>01B0 

666-01BA 

273-01C4 



80-019D 

61-01A7 

8-01B1 

82-01BB 

1092*010 



5-019E 2-019F 

6S-01A8 21-01A9 

7-01B2 4032-01B3 

555-016C 15872*0100 
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Sample Problem 2: Invoice Output 



OAVES MARKET 

1997 WASHINGTON ST. 

NEWTOWN. MASS* 02158 



OTY 


NAME 




PREVIOUS BALANCE 


S 


SUGAR - BA6S 


11 


CHICKEN SOUP - CASES 


10 


TOMATO SOUP - CASES 


8 


SUGAR RETURNED 


6 


COOKIES - CASES 


17 


GINGER ALE - CASES 


17 


ROOT BEER - CASES 


17 


ORANGE ADE - CASES 


17 


CREME SODA - CASES 


17 


CHERRY SODA - CASES 


17 


SODA WATER - CASES 


25 


DOG FOOD - CASES 


25 


CAT FOOD - CASES 


10 


SOAP POWDER - CASES 


10 


DETERGENT - CASES 


12 


HAM - TINS 


12 


HAM - LOAF 


12 


SALAMI 


12 


BOLOGNA 


12 


CORNED BEEF 


12 


ROAST BEEF 


1.000 


BREAD - LOAF 


4.000 


ROLLS 


200 


MILK - QUARTS 


100 


MILK • HALF GALS 


50 


MILK - GALS 


100 


POTATOES - BAGS 


100 


TOMATOES - LOOSE 


100 


CARROTS - BUNCHES 


10 


DETERGENT - CASES 


12 


HAM - TINS 


12 


HAM - LOAF 


12 


SALAMI 


12 


BOLOGNA 


12 


CORNED BEEF 


12 


ROAST BEEF 


1.000 


BREAD - LOAF 


4.000 


ROLLS 


200 


MILK • QUARTS 


50 


MILK - GALS 


100 


MILK • HALF GALS 


100 


POTATOES - BAGS 


100 


TOMATOES - LOOSE 


100 


CARROTS - BUNCHES 


10 


DETERGENT - CASES 


12 


HAM - TINS 


1.000 


BREAD - LOAF 



AMT 

Sill. 29 

S21.02 

138.76 

S30.ll 

S21.02CR 

S4S.21 

$52.37 

S52.37 

•52.37 

SS2.37 

S52.37 

•32.37 

S101.26 

S101. 26 

S72.89 

S72.S9 

S36.75 

S33.75 

•33.75 

•33.75 

•33.75 

•33.75 

•150.00 

•150.00 

•57.62 

•57. 42 

•57.62 

•11.23 

•11.23 

•11.23 

•72.89 

•36.75 

•33.75 

•33.75 

•33.73 

•33.75 

•33.75 

•150.00 

•150.00 

•57.62 

•57.62 

•57.62 

•11.23 

•11.23 

•11.23 

•72.89 

•36.75 

•150.00 



OTY 


NAME 


6.000 


ROLLS 


200 


MILK • OUARTS 


100 


MILK - HALF GALS 


50 


MILK - GALS 


100 


POTATOES - BAGS 


100 


TOMATOES - LOOSE 


100 


CARROTS - BUNCHES 


10 


DETERGENT - CASES 


12 


HAM - TINS 


12 


HAM - LOAF 


12 


SALAMI 


12 


BOLOGNA 


12 


CORNED BEEF 


12 


ROAST BEEF 


1.000 


BREAD - LOAF 


6.000 


ROLLS 


200 


MILK - OUARTS 


100 


MILK - HALF GALS 


100 


MILK - HALF GALS 


100 


POTATOES - BAGS 


100 


TOMATOES • LOOSE 


100 


CARROTS - BUNCHES 


10 


DETERGENT - CASES 


12 


HAM - TINS 



AMT 
•150.00 
•57.62 
•57.62 
•57.62 
•11.23 
•11.23 
•11.23 
•72.89 
•36.75 
•33.75 
•33.75 
•33.75 
•33.75 
•33.75 
•150.00 
•150.00 
•57.62 
•57.62 
•57.62 
•11.23 
•11.23 
•11.23 
•72.89 
•36.75 



STAND I SH MOTORS 
10 WATER STREET 
PLYMOUTH. MASS. 02296 



20 

50 

50 

100 



NAME 

PREVIOUS BALANCE 
AIR CLEANERS - CASES 
GREASE - BARRELS 
TIRES - 650 X 13 
TIRES - 750 X 16 
7IRES - 800 X 16 
GASOLINE CAPS 



AMT 
•2.356.36 

•200.03 
•165.26 
•260.38 
•900.53 
•1.012.00 
•99.68 



•6.996.22 
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Sample Problem 2: Console Printer Log and New Master Card Listing 



J CSPHOliO 



EHROR THIS IS A DELIBEKATE ERHUR 

ERROR DAVE MARKET THIS CARD IS A DELIBERATE MISTAKE J CSPU060 

DAVES MARKET 1997 WASHINGTON ST. NEWTOWN, MASS. 0215800389325 A CSPU050 

ERROR STANDISH MOTOR THIS CARD IS NOT CORRECT ABCDEFGHI JKLMNOPQRSTUVJ CSPH850 

STANOISH MOTORS 10 WATER STREET PLYMOOTH, MASS. 02296004991.22 A CSPU790 

END OF JOB 
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Sample Problem 2: Data Input Listing 



END OF JOB 
ERROR 

* £■ CR 
PREVIOUS BALANCE 

OTY 
AHT 
I STOP 
TOTAL 

this is a delibera 
daves market 
dave market 
daves market 
daves market 
daves market 
daves market 
daves market 
oaves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
dave5 market 
daves market 
daves market 
daves market 
daves market 
Daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
dave5 market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 
daves market 



TE ERROR 

1997 WASHINGTON ST, 
THIS CARD I 
5UGAR - BAGS 
CHICKEN SOUP - CASE 
TOMATO SOUP - CASES 
SUGAR RETURNED 
COOKIES - CASES 
GINGER ALE - CASES 
ROOT BEER - CASES 
ORANGE ADE - CASES 
CREME SODA - CASES 
CHERRY SODA - CASES 
SODA WATER - CASES 
DOG FOOD - CASES 
CAT FOOD - CASES 
50AP POWDER - CASES 
DETERGENT - CASES 
HAM - TINS 
HAM - LOAF 
SALAMI 
BOLOGNA 
CORNED BEEF 
ROAST BEEF 
BREAD - LOAF 
ROLLS 

MILK - QUARTS 
MILK - HALF GALS 
MILK - GALS 
POTATOES - BAGS 
TOMATOES - LOOSE 
CARROTS - BUNCHES 
DETERGENT - CASES 
HAM - TINS 
HAM - LOAF 
SALAMI 
BOLOGNA 
CORNED BEEF 
ROAST BEEF 
BREAD - LOAF 
ROLLS 

MILK - QUARTS 
MILK - GALS 
MILK - HALF GALS 
P0TATOE5 - BAGS 
TOMATOES - LOOSE 



NEWTOWN* MASS. 0215800011129 
S A DELIBERATE MISTAKE 

000021020008 
5000038760011 

000030110010 

0000210K0008 

000045210006 

000052370017 

000052370017 

000052370017 

000052370017 

000052370017 

000052370017 

000101260025 

000101260025 

000072890010 

000072890010 

000036750012 

000033750012 

000033750012 

000033750012 

000033750012 

000033750012 

000150001000 

000150004000 

000057420200 

000057420100 

000057420050 

000011230100 

000011230100 

000011230100 

000072890010 

000036750012 

000033750012 

000033750012 

000033750012 

000033750012 

000033750012 

000150001000 

000150004000 

O0O05742C20O 

000057420050 

000057420100 

000011230100 

000011230100 



CSP13960 
CSP13970 
CSP13980 
CSP13990 
CSP14000 
CSP14010 
CSP14O20 
CSP14030 
CSP14040 
CSP14050 
CSP14060 
CSP14070 
CSP140BO 
CSP14090 
CSP14100 
CSP14110 
CSP14120 
CSP14130 
CSP14140 
CSP14150 
CSP14160 
CSP14170 
CSP14180 
CSP14190 
CSP14200 
CSP14210 
CSP14220 
CSP14230 
CSP14240 
CSP14250 
CSP14260 
CSP14270 
C5P14280 
CSP14290 
CSP14300 
CSP14310 
CSP14320 
CSP14330 
CSP14340 
C5P14350 
CSP14360 
CSP14370 
CSP143B0 
CSP14390 
CSP14400 
CSP14410 
CSP14420 
CSP14430 
CSP14440 
CSP14450 
CSP14460 
CSP14470 
CSP14480 
CSP14490 



DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


OAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


OAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


DAVES 


MARKET 


OAVES 


MARKET 


OAVES 


MARKET 


OAVES 


MARKET 


STANDI SH MOTORS 


STANDISM MOTORS 


STANDtSH MOTORS 


STAND ISH MOTORS 


STANDISM MOTORS 


STANDISH MOTORS 


STAND ISH MOTOR 


STANDISM MOTORS 



CARROTS - BUNCHES 
DETERGENT - CASES 
HAM - TINS 
BREAD - LOAF 
ROLLS 

MILK - QUARTS 
MILK - HALF GALS 
MILK - GALS 
POTATOES - BAGS 
TOMATOES - LOOSE 
CARROTS - BUNCHES 
DETERGENT - CASES 
HAM - TINS 
HAM - LOAF 
SALAMI 
BOLOGNA 
CORNED BEEF 
ROAST BEEF 
BREAD - LOAF 
ROLLS 

MILK - QUARTS 
MILK - HALF GALS 
MILK - HALF GALS 
POTATOES - BAGS 
TOMATOES - LOOSE 
CARROTS - BUNCHES 
DETERGENT - CASES 
HAM - TINS 



000011230100 
000072890010 
000036750012 
000150001000 
000150004000 
000057420200 
000057420100 
000057420050 
000011230100 
000011230100 
000011230100 
000072890010 
000036750012 
000033750012 
000033750012 
000033750012 
000033750012 
000033750012 
000150001000 
000150004000 
000057420200 
000057420100 
000057420100 
000011230100 
000011230100 
000011230100 
000072890010 
000036750012 



10 WATER STREET PLYMOUTHt MASSt022960023563 

AIR CLEANERS - CASES0OO20OO3OO2O 

GREASE - BARRELS 000165240006 

TIRES - 650 X 13 000260380020 

TIRES - T50 X 14 000900530050 

TIRES - 800 X 14 001012000050 

THIS CARD IS NOT CORRECT ABCOEFGHIJKLMNOPQRST 

GASOLINE CAPS 000099680100 



CSP14500 
C5P14510 
CSP14520 
CSP14530 
CSP14540 
CSP14550 
CSP14560 
CSP14570 
CSP14580 
CSP14590 
CSP14600 
CSP14610 
CSP14620 
CSP14630 
CSP14640 
CSP14650 
CSP14660 
CSP14670 
CSP14680 
CSP14690 
CSP14700 
CSP14710 
CSP14720 
CSP14730 
CSP14740 
CSP14760 
CSP14760 
CSP14770 
CSP14780 
CSP14790 
CSP14800 
CSP14S10 
CSP14820 
CSP14830 
CSP14840 
CSP14850 
CSP14860 
CSP14370 
CSP148B0 
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PROBLEM 3 

The purpose of this program is to print a payroll register and punch a new year-to-date 
card for each employee. The input deck is as follows: 









Last 
employee 


/ 


/ 






• 






















/ 


/ 




/ 


Blank 






/ 


/ Employee 


/ 
















/ 3 




/ 


/ 


/ 


Current 
card 






/ 




/ Employee 


/ 


) 


V 








card 










/ 


r 


r-to-date 
card 


/ 






/ Employee 
/ 1 




/ 


V 


Yea 




Current 
card 






/ 


f 



























Input deck 



Employee deck 



The year-to-date and current cards are read and processed. The payroll register is 
printed as in the example, and a new year-to-date card image is printed on the console 
printer. Then the next employee is processed. 

As is shown, the order of the year-to-date card and current card is not known before 
the cards are read. 

If the user's system has an 1132 Printer, switch on the console must be in the up 
position, and all other switches in the down position. If the user's system does not 
have an 1132 Printer, all switches on the console must be in the down position. 
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Sample Problem 3: Detailed Description 

1. Determine the output unit from the data switches. 
0= console printer, 1=1132 Printer 

2. Read the edit mask. 

3. Read a card. 

4. Is the card read in (3) blank? 
Yes - 18 No - 5 

5. Is the card read in (3) a year-to-date card? 

Yes - 11 No - 6 

6. Is the card read in (3) a current card? 
Yes - 8 No - 7 

7. Stop. 

8. Move the employee number to storage (JEMP). 

9. Extract the number of hours worked (HRS). 

10. Go to (3). 

11. Move the department number to storage (IDEP). 

12. Move the employee number to storage (IEMP). 

13. Move the employee name to storage (INM). 

14. Move the Social Security number to storage (ISS). 

15. Move the pay rate to storage (IRT). 

16. Move the year-to-date gross to storage (IYTD). 

17. Goto (3). 

18. Are IEMP and JEMP the same? 
Yes - 19 No — 24 

19. Current amount (CTJRR) is set equal to HRS times pay rate. 
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20. New year-to-date is set equal to CURR +IYTD. 

21. Print a new year-to-date card image on the console printer. 

22. Print the payroll register line as in the example. 

23. Go to (3). 

24. Halt. If start is pushed, go to (3) . 

Card Formats 



99 



999 



999 



Employee Name 



99999999999999999999 

I ID 11 12 13 1» 15 16 11 II 19 10 21 H 21 24 25 ; 



Employee Name 



99999999999999999999 

4 5 6 J I 8 1M1 12 13 14 IS II II 1* 19 20 II 23 S3 



Social 
Security 



9999999 99 

29301132313415X37 



9999 

» IS 30 11 



9999 

3819 40 



YTD 

Gross 



9999999 

47 43 44 45 46 47 4B 



999999999999999999999 

43 M 51 51 S3 54 55 56 ST 56 59 EC (1 (3 63 64 85 68 67 68 69 



99999999999999999999999999999999999999 



99999 

33 33 34 35 36 37 38 33 40 41 42 43 44 4S 46 47 46 43 50 51 SI S3 54 SS 56 57 St SB GO 61 62 63 64 65 St 67 61 tSJTObl 71 H 74 75 16 77 76 79 BO 



199999999999999999999999999999999999999999999999999999999999999999999 

I ! I « i 6 7 I 111 111! 11 14 IS It 17 lilt 10 !l i! 23 14 IS 76 17 71 S 30 313! 33 34 35 K 37 It 39 40 41 43 43 44 45 41 41 48 40 50 51 53 53 54 55 St 5! SI M « S3 6! 63 64 65 86 67 0161 



99 

'j M IS 



9999 

16 17 Tl 79 n 



99 



999 



C 

s 

p 

999 

13 14 75 



Card 
Seq. 

No. 



Card 
Seq. 



Card 
Seq. 



99999 

IS II Tl 79 10 



when New YTD 

Code = 1 when year-to-date 
2 when current 



9999 999999 99 99999 99999 9 999 999 99 9 9 99 99999 9 9999 999 999 999 9999999999 9999 99999 9999999 

1! 1 I it 7 I ||0l!III3ltMltl7 1tl«113lHaMaKJ7?IS»3l33 3134 35 3637 36M404lt2t3444St6474t«WSIS2S3^ 
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1130 COMMERCIAL 



SAMPLE PROBLEM 3 



Of TEHMlNE 

OUTPUT 

UNIT 



• NZERO 
•IS REPLACED BY 

• NZERO £ I 



» IQfcP 

• IS REPLACED BY 

• DEPARTMENT 

• NUMBER 



NO .• IS IEMP 
...«. EQUAL TO 
*. JCMP 



• IEMP • 
•IS REPLACED BY • 
•EMPLOYEE NUMBER* 



•ERROR - HALT 



• CURR 

•IS REPLACED BY 

• HRS i IRT 



» INM 

•IS REPLACED BY 

• EMPLOYEE N4ME 



TYPE 

THE EMP. NOS. 
00 NOT MATCH 



• YTD 

•IS REPLACED BY 
» CURR £ I YTD 



• JEMP • 
•IS REPLACEO BY • 

• EMPLOYEE .JUM8E*» 



• ISS * 

•IS REPLACED BY • 
•SUC1AL SECURITY* 

• DUMBER • 



TYPE A NEW YTO 

• CARD IMAGE 



• HRS 

•IS REPLACED BY 

• HOURS WORKED 



• IRT 

•IS REPLACED bY 

• PAY RATE 



» I YTD 

•IS REPLACED bY 
• YEAS-TU-OATE 
> GROSS 
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Sample Problem 3: Source Program 



•• SAMPLE PROBLEM 3 

• NAME SP3 

• IOCSICARD.TYPEWR1TER.U32 PRINTER! 

• ONE WORD INTEGERS 
« EXTENDED PRECISION 

• LIST ALL 



PAGE 01 

CSP14900 
C5P14910 
CSP14920 
CSP14930 
CSP14940 
CSP14950 



SAMPLE PROBLEM 3 P * GE ° 2 

DIMENSION MASK[121.IN<69l,IOEP(2>.lEMP(3I.INM(20> .ISS19I . IRT 141 . CSP14960 
1 IYTD(TUJEMP(3>.NYTDI7>.ICUR<6I.KCURR(12I.KOYTDI12I.KNYTD(12> CSP14970 

1 FORMAT IS9A1.I1I CSP14980 

2 FORMAT I12A1I CSP14990 
20 FORMAT I 1H .2A1.1X.23A1 .2X.20A1 .21X.1H1 .3X.7HCSP CSP15000 
30 FORMAT ( 1H .2A1.2X.3A1.2X.20A1 .Sx .31 12A1.2X 1 1 CSP15O10 

CALL DATSWIO.II CSP1SO20 

NREAD»2 CSP15O30 

NWRIT=2»(1/I!*1 CSP15040 

READ INREAD.2) MASK CSP15050 

15 READ 1NREAD.11 IN.ICD CSP15060 

IF C ICO) 6.10.6 CSPIS070 

6 NZERCO CSP1S080 

GO TO 17.3). ICO CSP15O90 

C THIS IS THE YEAR TO DATE PROCESSING CSP15100 

7 CALL MOVE ( IN.1.2 .IOEP.l ) CSP1SH0 

CALL MOVE (IN.4.6.IEMP.1I CSP1S120 

CALL MOVE IIN.7.26.INM.1) CSP15130 

CALL MOVE [IN.29.37.ISS.il CSP15140 

CALL MOVE (IN.3a.ftl.IRT.l) CSP15150 

CALL MOVE (IN.42.48.IYTD.il CSP15160 

GO TO 15 CSP15170 

C THIS IS CURRENT PERIOD PROCESSING CSP15180 

6 CALL MOVE (IN.1.3.JEMP.1I CSP15190 

HR5-GET (IN. 28. 30. 100. 01 CSP15200 

GO TO 15 CSP15210 

10 N2ERO » NZERO * 1 C5P1S220 

IF (N2ER0 - 1) 100.100.101 CSP15230 

101 STOP CSP1S240 

100 IF (NC0MP(IEMP.1.3.JEMP.1)I 99.11.99 CSP15250 

11 CURR-(HRS»GET( IRT. 1.4. 10. 01*500. 01/1000.0 CSP15260 

YTD-CURR+GET ( IYTD.l .7,10.01 CSP15270 

CALL PUT (NYTD.1.7.YTD.5.0.1! CSP15280 

WRITE 11.201 IDEP.IEMP.INM.ISS.IRT.NYTD CSP15290 

CALL PUT (ICUR.1.6.CURR.5.0.1I CSP15300 

CALL MOVE (MASK.1.12.KCURR.1> CSP15310 

CALL MOVE (MASK. 1. 12.K0YTD.il CSP15320 

CALL MOVE (MASKll.12.KNYTD.il CSP15330 

CALL EDIT (ICUR.1.6.KCURR.1.121 CSP15340 

CALL EDIT (IYTD.1.7.K0YTD. 1.121 CSP15350 

CALL EDIT (NYTD.1.7.KNYTD. 1.121 CSP15360 

WRITE INWR1T.30I IDEP. IEMP.INM.KOYTD.KCURR.KNYTD CSP15370 

GO TO 15 CSP153B0 

C THIS IS AN ERROR. THE EMP NOS DO NOT MATCH. CSP1S390 

99 WRITE (1.401 CSP15400 

40 FORMAT I 1 THE EMP NOS DO NOT MATCH. 1 I CSP15410 

GO TO 15 CSP15420 

END CSP15430 



SAMPLE PROBLEM 3 

VARIABLE ALLOCATIONS 
HRS -0000 CURR •0003 
1YTD -0086 JEMP «0089 
ICD «OOBE NZERO-OOBF 

STATEMENT ALLOCATIONS 
1 -O0E1 2 -00E5 

101 -01A8 100 -01AA 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 
IOCS 

CALLED SUBPROGRAMS 
DATSW MOVE GET 

SFIO SIOAI SIOI 

REAL CONSTANTS 

•100000000E 03>OOCO 

INTEGER CONSTANTS 

0-OOCF 2-OODO 

41«00D9 42»00DA 















PAGE 03 












YTD 
NYTD 


■ 0006 
-0090 


MASK 

ICUR 


-0014 
■ 0096 


IN '0059 
KCURR-00A2 


IDEP «005B 
KOYTD-OOAE 


I EMP -005E 
KNYTD'OOBA 


IMM 
I 


■ 0072 

■ OOBB 


ISS -007B 
NREAD-OOBC 


IKT 

nwr; 


-007F 
!T*O0BD 


20 
11 


■00E8 
■01B3 


30 
99 


■ OOFC 
'0236 


40 aOlOD 


15 -0149 


6 -0155 


7 


■ 01SF 


8 -01SB 


10 


■ 019C 



NCOMP 
STOP 



PUT 
CARD2 



EDIT 
PRNT2 



10OO0O0OOE 


O2"O0C3 


•bOOOOOOOOE 


03-00C6 


.iOOOOOOOOE 


04.-0OC9 


• 500000000E. 01=OOCC 


1-0QD1 
48»000B 


4-00D2 
3«0ODC 


6-00D3 
2B-00DD 


7=00D4 

30-OODE 


26-00D5 
12-OGDF 


29*0006 

Q-OOEO 


37-OQD7 38»00D6 



CORE REQUIREMENTS FOR 5P3 
COMMON VARIABLES 



END OF COMPILATION 



192 PROGRAM 
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Sample Problem 3: Payroll Register Output 



01 101 KCINRAH> S 

52 201 OH I MORES. 

76 676 NEDAB. R 

76 689 NEOUOk. R 

01 253 ECAM. 







CSP 15440 


S7.493.06 


S198.91 


S7.651.97 


S3 .524. 37 


S143.82 


S3.66S.19 


S10 .060.60 


*297«27 


HO. 357. 87 


S10 .060.60 


1297.27 


S10.3S7.S7 


$9,555.62 


S279.65 


S9.835.27 
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Sample Problem 3: Console Printer Error Log and New Year-to-Date Card Image 



01 101KCINRAH, S 



79856643205k20765197 



52 2010m NOREG, H 0133256780li230366819 



76 676NEDAB, R 



0:1.423306008101035787 



76 689NEDU0L, R 



79860379408101035787 



THE EMP NOS DO HOT MATCH. 
01 253ECAM, D 



951(62305707620983527 
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Sample Problem 3: Data Input Listing 



• f. CR 

01 101KCINRAH. 
101KCINRAH. 5 

2010MINOREGI 
52 2010HINORE6. 

76 676NEDAB. R 
676NEDAB* R 

689NEDU01 • R 
76 689NE0U0Lt 

99 999NIVDFN. 
099NIVDEN. A 

01 253ECAM. 
2S3ECAM. D 



79856643205420745306 
01367 



52340 

013325676O4230352437 



01423306006 101006060 
76367 



76367 

79860379406' 01006060 



99999999901160511122 
994009 



95462305707620955562 
01367 



CSP15450 
CSP 15460 
CSP15470 
CSP 15480 
CSP15490 
CSP1550O 
CSP15510 
CSP15520 
CSP 15530 
CSP15540 
CSP15550 
CSP15560 
CSP15570 
CSP1S580 
CSP15590 
CSP15600 
CSP15610 
CSP15620 
CSP15630 
CSP15640 
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FLOWCHARTS 



1130 COMMERCIAL 



ADD SUBROUTINE 



••••••••••••••••• 

•CLEAR AND SAVE * 

* SIGNS ON • 
•JCARD ANO KCARD- 

• FIELDS • 

•*•■•••»••••«•••• 



• CALCULATE THE • 

•0PERAT10N-LS1GN* 
•IS REPLACED BY • 

• JSIGN • KSIGN • 



• KNOW 

•IS REPLACED BY 

• KLAST - JLAST 

• 6 J 



•••• .* ». 

• YCS ." IS KNOW 
C5 »X LESS THAN 



• J NOW 

•IS REPLACED BY 

• J 



• JNtlW ♦ 
•IS REPLACEO BY • 

• JNOH & 1 • 



• KNOW * 
•IS REPLACEO BY • 

• KNOW & 1 • 



NO .• IS JNOH » 

GREATER THAN 

«. JLAST .• 



t KNOW • 

IS COMPARED 
». TO ZERO .• 



• KCAROlKLASTa 
•IS REPLACED ttY 
•KCARDXKLASTO £ 

• KNOW 
••••••«•«•••■••■ 



••••••••••■•••a** 

• • 

• RESTORE SIG'IS • 

• ON • 
•JCARO AND KCARD* 

• FIELDS • 
•«••••••••••••••• 



•••••*•••••• 

EXIT • 











• 


PILL 












CARD.K, 
KLAST, 9 




• 




• 






• ■••« 


»•• 


•••• 


• ••• 


• ••4 
















• C5 


• • • 














■ «• 








• ••• 


■ ■•• 


»•••« 












NER 




• IS 


;EPLACED 


BY • 




KLAST 




•••••■•• 


»•••• 


• ••• 



• KCARDXKNOWD • 
•IS REPLACED BY • 
•9 - KCARDSKNOWa* 



IS KNOW 
LESS THAN 
. KLAST . 



• KSIGN 

•IS REPLACED BY • 

• -KSIGN • 



••*••••••••••••• 

I KNOW 

.X«I5 REPLACED BY 
• KNOW £ 1 
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1130 COMMERCIAL 



MDEC SUBROUTINE 



• JCARDSJNOHa 



NO .• IS JTEST 
.--■• LESS THAN 
•. -4032 . 



IS JTEST 

LESS THAN 
. ZERO 



.• IS JTEST 

. AN EBCDIC 
«. BLANK . 



• NER 

•IS REPLACED BV 

• JNUM 



• JTEST 
•IS REPLACED BY 
•AN EBCDIC ZERO 



JCAROtJNOHa • 

IS REPLACED BY • 

SJTEST E *032n/» 

256 • 



IS JNOW 

LESS THAN 

. JLAST . 



• JNOW 
.XMS REPLACED BY 

• JNOW L 1 



• JCARD3JLASTH • 
•IS REPLACED BY »X. 
•-JCARDXJLASTO-I. 
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1130 COMMERCIAL 



CARRY SUBROUTINE 



• JNUW 

•IS REPLACED BY 

* JLAST 



• JTEST 
•IS REPLACED BY 

• JCARDXJNOwn & 

• UCARY 



• NCARY 
•IS REPLACED BY 

• JTEST / ID 



• JTEST 

•IS REPLACED BY 

• JTEST - 10 • 

• NCARY 



IS JTESf 
LESS THAN 
. ZERO 



• JTEST 

•IS REPLACED BY 

• JTEST C 10 



• NCARY 
•IS REPLACED BY 

• NCARY - I 



• JCARUXJNOhD 
•IS REPLACED BY 

• JTEST 



• JNUW 

•IS REPLACED BY 

• JNOK - I 



KARRY 

IS REPLACED BY 

NCARY 
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1130 COMMERCIAL 



DECAl SUBROUTINE 



• JCARDXJLASTa • 
•IS REPLACED BY • 
•-JCARDXJLASTa-L* 



• JTESI 
•IS REPLACED BY 

• JCARDSEJNOWn 



IS JTESI 
LESS THAN 
. ZERO 




• JCARDSJNOWn • 
•IS REPLACED BY • 

• 256 • JTEST - • 

• 4032 • 



JNOW • 
IS REPLACED BY »X. 
JNOW CI • 



IS JNOW 

LESS THAN 

. JLAST . 
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1110 COMMERCIAL 



D1V SUBROUTINE 



.•IS KLASr - » 
•. KSTRT-JSPAN 
■.NEGATIVE .• 



• JHICH 

•IS REPLACED BY 

• JCAROSJFRSfn 



• JNDW 

• IS UNPLACED tJY 

• JFRST 



IS 

KLOW 

.POSITIVE 



•CLEAR AMU SAVE • 

• SIGNS ON » 
•JCARD AND KCARU* 

• FIELDS ♦ 



• KPUT 

•IS REPLACED HV 

• KLUW £ 

• JLASI - JFRST 




• JSPAN 

■I S REPLACED ttY 

• JLAST - J fc 1 









KSTOP 






s 


REPLACED 


bY • 




KLAST c, JFKS1 • 






JLA 


1 - 


I • 
















KM 






IS 


REPLACED 


6Y • 






KSTRT 




» 












. 
















• 


h 


■ . > 






" 


... 









• KCA*DXKNUt.Li 

• IS RtPLACfcJ liY 

• K;A*UXKNOWii - 

• MULT • 

• JCA'tlUJNUWu 




J*IU.«I • 
IS REPLACED BY *X. 
JNUW I 1 • 



iS J NOW 
LESS THAN 
. JLAST . 



.• IS •. YES 

• .JCARDijFRSTci ...... 

•-PUSITIVE -• 



■ KLOW 

• IS REPLACFO fiY 

• K - JSPAN 



• MULT 

• IS REPLACFD t)Y 
•*10 • KCARDIKMU 

• LKCARDSKMLltia/ 

• JHIGH 



IS JFRST 

LESS THAN 
. JLAST . 



• JFRST 

•IS REPLACED BY 
» JFRST 6 1 



• \tlUO 

•IS REPLACED BY 

• MULT 



IS KNOW 
LESS THAN 
. 2ERQ 



• NER 

•IS REPLACED BY 

• KLAST 



KCARO. KLAST 

JSPAN, JSIGN 
KSIGN.KNOk 



.• IS MULT • 
•.GREATER THAN 
• . ZL-RO .• 



• KNOW 
-X«I S REPLACED BY 

• KM £ 1 



* k:*^dxkmu 
•is replaced 

* KCARU*KM3 

* 10 • KNOW 



• KCARfUKPUTn 
•IS REPLACED BY 

• NCJUO 



MULT 
EPLACEO bY 
-1 



• KPUT 

•IS REPLACED OY 

• KPUT £ I 



• NtiUQ 
•IS REPLACED 

• <«uo - I 



IS KM 

LESS THAN 

. KSTOP . 
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L I 30 CUMMERC [ AL 



edit SUBROUTINE 



NZONE 

JCARDi JLAST, 

4.NSIGN 




• NOUMP 
•IS REPLACED BY 

• EtiCOlC BLANK 

• 216448b 




» KONEY 
•IS REPLACED BY 
• EBCDIC BLANK 




.» »34« • 
IS KTEST 

EQUAL TO 
. 16448 



YES -• IS KTEST 
■•- EQUAL TO 
*. 23616 



.• *14* • 
IS KTEST 
EQUAL TO 

. 23360 



■ NDUMP 
•IS REPLACED BY 
• KTEST 



• KTfcST 

•I S REPLACED BY 

• JCAROiJNOwn 



• KCARD*KNOWn 
•IS REPLACED BY 
KTEST 



• JNOW 

"IS REPLACED BY 

• JNOW - 1 



NZONt 

JCARO.JLAST, 

NSIGNiKTEST 



• KTEST 

• IS REPLACED (1Y 

• KCArtDXKLASTa 



FILL 

KCARD.K, 

KLAST, 23616 



• KNOW 

•IS REPLACED BY 

• KLAST 



• MONEY 

•IS REPLACED BY 

• KTEST 



.• *3»,« * 
IS KTEST 
EQUAL TO 

. -4032 



• «6« 

"KCAROXKLAST-lo 
•IS REPLACED BY 

• 16448 



• JNOW 

*IS REPLACED BY 

• JLAST 



• »19« 

• NZRSP 
•IS REPLACED BY 

• KNOW 



.• *36« • 
XYES -• IS KTEST 
.•. EQUAL TO 
•. 16448 



• K^AKDSKLASTu 
"IS REPLACED liY 

• 16448 



• »17« 

• KTEST 

•IS REPLACED B 

• KCARQ2KN0Wn 



IS KTEST •. NO 
EQUAL TO .*... 
. 24640 .* 



.• «3» •. 

• IS NZRSP • 
GREATER THAN 



.• .33. # 

• IS KTEST 
EQUAL TO 
*. -4032 



• «25« 

• NZRSP 

•IS REPLACED BY 

• KNOW - L 



FILL 
KCARD.K, 

NZSSP, NOUMP 



* KNOW 
.XMS REPLACED BY 

• KNOW - 1 



KlARUSNZRSPn 

IS REPLACfcD BY 

MONEY 



-112- 



1130 COMMERCIAL 



FILL SUBROUTINE 



• jCAROXJNOWn 
MS REPLACED BY 

« NCH 



• JNOW 

MS REPLACED BY 

♦ JNOW £ I 



.» IS JNOW • 
.GREATER THAN 
»- JLAST .* 
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1130 COMMERCIAL 



GfT I-UNCTHIN 



HZQHf 
JCARO.JLAST 
4.NSIGN 



• GET 

•IS REPLACED BY 

• 0,0 



JTEST 

IS REPLACED BY 

JCARDXJNOhD 



• GET 
-X»IS REPLACED BY 

• 0.0 



* JTEST • 

• IS REPLACEO BY • 
•AN EBCDIC ZERO • 



• GET • 
•IS REPLACED BY •. 

*IO»GET£*JTEST£ • 

• 4032O/256 » 



• JNOW 
.X»IS REPLACED BY 

• JNUH E 1 



NO .• IS JNUW •. 

..•.GKEATER THAN . 

•. JLAST .• 



• GET 

•IS REPLACEO 8Y 

• SHIFT • GET 



NZONE 

J CARD. JLAST. 

NSIGN. JTEST 



IS NSIGN 

EQUAL TU 

2 



GET 

IS RtPLACED MY 

HI^US GET 
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1130 COMMERCIAL 



ICOHP FUNCTION 



•CLEAR AND SAVE • 

• SIGNS ON * 
•JCARO AND KCARD* 

* FIELDS * 



• IS 


KNOW 
REPLACED 
KSTRT £ 


8Y 






• IS 


JHASH 

REPLACED 
ZERO 


BY 


• 











• KSTRT • 
•IS REPLACED BY • 

• KLAST £ J - • 

• JLAST - 1 • 



-• IS K • 

.GREATER THAN 

• . KSTRT .* 



• JHASH 
•IS REPLACED BY 

• JHASH C 

• JCARD*KSTRTo 



• ICOMP • 
•IS REPLACED BY • 

• -KSIGN • 



• ICOMP 
•IS REPLACED BY 
•JCARDSKSTRTn - 

• KCARDtKNOWn 



• KNOW 
.•IS REPLACED BY 

• KNOW £ 1 



IS ICOMP 

EQUAL TO 
. ZERO 



.• IS • . 

•.KSI3N • JSI3N. 

•.LESS THAN.* 

•.ZERO .• 



.• IS •. NO 
. KCARDXKNOUa .•... 

•.POSITIVE -• 



IS KNOW 
LESS THAN 
. KSTRT . 



.• IS KSTRT 
. LESS THAN 
•. JLAST . 



■ KNOW 

•IS RFPLACEO BY 

• KNOW £ 1 



• RESTORE SIGNS • 

• ON • 
•JCARO AND KCARD* 

• FIELDS • 



.•IS JSIGN * •. 
.KSIGN • JHASH. 
•.NEGATIVE -• 



» ICUMP 

•IS REPLACED BY 
• JSIGN • ICOMP 
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1130 COMMERCIAL 



IOND SUBROUTINE 



YES -• ANY 
,.X». INTERRUPTS 
•. PENDING . 
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1130 COMMERCIAL 



MOVE SUBROUTINE 



• KMOW 

•IS REPLACED BY 

* K £ JNOW - J 



KCARinKNOWa 

S REPLACED BY 

JCARDXJNOWa 



> J NOW 

•IS REPLACED BY 

* JNOW & t 



IS JNOW 

LESS THAN 

. JLAST . 
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1130 COMHERC IAL 



HPV SUtmnUTINF 



• KSTRT 
,X»[ 5 REPLACED BY 

• K - JLAST £ J 



NER 

IS REPLACED HY 

KLAST 



J .• IS KSTK1 • 
.•.GREATER THAN 
«. ZfcRO .• 



•CLEAR AND SAVE • 

• SIGNS UN • 

• JCARD ANO KCARU» 
" FIELDS • 



• r S REPLACtO HY • 



• MULT 

•IS REPLACtO SV 

» KXARLUKMti 



IS REPLACED UY 



• • IS MULT • 
•-GREATER THAN 
• . ZERO .• 



IS KM 
LESS TrfA:M 
. KLAST . 



IS JFRST 

LESS THAN 
. JLAST . 



« JFRST 

„X*IS REPLACED UY 
• JFRST E 1 



• KCARD*KMti 
»IS REPLACED BY 

• ZERO 



• KNOW 

•I S REPLACED 8Y 

• KM £ JFRST 

• - JLAST 



■ JNOW 

•IS REPLACED BY 

• JFRST 



■ JNOW 

•IS REPLACED BY 

• JNObt £, I 



• KCARO*KNOWn 
•IS REPLACED BY 
" MULT • 

• JCARD*JNOHn t 

• KCAKDXKNOWD 



KNOW 
REPLAC60 BY 
KNUW £ 1 



IS JNOW 
LESS THAN 
. JLAST . 



• K:ARD t KLASr, 
•JSI&N • KSIoN, 

• KNOW 
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1130 COMMERCIAL 



NCOMP FUNCT1UN 



■ KNOW 

•IS REPLACED BY 

» K C JNUW - J 



• NCUMP 

■IS REPLACED UY 

• JCARD«JN0ho/8 
«- KCARD*Kf4QWc/8 



IS NCOMP 
EQUAL TO 
. ZERO 



• JNUW 

•IS REPLACED BY 

* JNGM £ 1 



.• IS JNOH ». NO 
•.GREATER THAN .»♦. 
». JLAST .► 
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1130 COHHERCIAL 



NS1GN SUBROUTINE 



• MOLDS • 

•IS REPLACED BY • 

1 ■ 



• JTEST • 
•IS REPLACED BY • 

• JCARDSJQ • 



NO .• IS JTEST 
>..*. LESS THAN 
•. ZERO 



LOU .>NEUS>JTEST •. HI 

...». IS COMPARED .«.., 

•. TO .• 

•.ZERO .• 



. • IS NEUS • 
.GREATER THAN 
». ZERO .* 



• JTEST • 
•IS REPLACED BY • 

• -JTEST - 1 • 



JCIROSJU 

IS REPLACED BY 

JTEST 
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1L30 COMMERCIAL 



NZONE SUBROUTINE 



• JTEST « 
#IS REPLACED BV « 

• JCARUXJQ • 



• IS •. NO 
JTEST .•-.. 

-.NEGATIVE .• 



IS JTEST • . 
EQUAL TO 
.24640 «-a.- 



• IS JTEST • . NO 

EQUAL TO AN .•-.. 
*. EBCDIC .* 
•.ZERO .* 



- JCAROIJa 
•IS REPLACED 8Y 
• 24640 

» 4EBCUIC - a 



■ NOLDZ 

MS REPLACEO BY 
» 5 L XJTEST - 
» 4096D/4096 



* JCARDXJa 
•IS REPLACED 8Y 
•JTEST t 4096 • 
•XNEHZ - MOLOZp 



JTEST 

IS REPLACED BY 

-12224 

tEBCOIC U-On 
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1130 COMMERCIAL 



PACK/UNPAC SUBRUUTINE 



• START UNPAC • 



START PACK 



SET SWITCH AT 
tt« TO 
UNPAC 



SET SWITCH AT 
B4 TO 
PACK 



IS 

SWITCH 
PACK 



• Shift high » 

•ORDfcR CHARACTER* 
•TO LOW ORDER 0F» 

• EXTENTION » 



• SHIFT LOW • 
•DRDE* CHARACTER* 
» TO EXT6NTIUN • 



* LOAD ACCUM. • 

• WITH NEXT • 
•JCARO CHARACTER" 



•REPOSITION THE 

• -HIiH OR[>ER 

• CHARACTER 



• ROTATE ACCUM. 

• AND EXTENTION 
*8 TO CKEATE A2 

• FORMAT 



•STURE ACCUM. (V 
• KCARO USING 
•INDEX REGISTER 



• PLACe EBC31C • 
•BLANK, HEX 40, • 
•IN LOw ORDER 0F« 

• ACCUMULATOR • 



•ST3RE ACCUM. IN 
• KCARO USI.-JG 
•INDEX REGISUR 



• LOAD INDEX > 
•REGISTER I WITH* 

• ADDRESS OF • 

• KCARDUn • 



NO .• HAS 

...♦.JCARDSJLASTo 
•.BEEN DONE. 



• LQAO ACCUM. • 

• WITH NEXT • 
•JCAKD CHARACTER* 



CREATE 
KfcTURM 

ADDRESS 



•SHIFT CHARACTER* 

• IM EXTENTION • 

• TO HIGH ORJES • 
•OF ACCUMULATOR • 



• PLACE EBCOIC • 
"BLANK, HEX *Q, - 
•IN LOw OROEK 0F» 

• ACCUMULATOR • 
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1130 COMMERCIAL 



PRINT/SKIP SUBROUTINE 



START PRINT • 



START SKIP 



IS 

PRINTER 
BUSY 



• PRNT1 
•SKIP REQUESTED 



• CHANGE PRNT1 
•CALL, 2OO0, TO 
« 2010, AT G2 



SET UP 

ADDRESSES FOR 

JCARO 



•PRNT1 G2» 

•2000, AREA, ERROR" 
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1130 COMMERCIAL 



PUT SUBROUTINE 



• OIGS 

• IS REPLACED BY 
•AbSSVARn&ADJST 

• TRUNCATED 



.* IS N • 

•.GREATER THAN 

*. ZERO .• 



J NOW 
IS REPLACED BY 

ONE 



OIGS 

IS REPLACED BY 

OIGS / 10.0 

TRUNCATED 



JMOW 

IS REPLACED BY 

JNOW t 1 



JNOW 

IS REPLACED BY 

JLAST 



DIGT 

IS REPLACED BY 

OIGS / 10.0 

TRUNCATED 



• JCAROZJNUUn • 
•IS REPLACED BY • 
•256 • IFIXSOIGS* 

• -10.0 • OIGTn • 

• -<»032 • 



JNUW 

IS REPLACED BY 

JNUW - 1 



IS VAR 
LESS THAN 
. ZERO 



NZONE 
JCARO, JLAST, 

2, JNOW 
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CHART RP h in^'COJtMEllCIAL 



REAO/PUNCH SU6RUUTINE 



START READ 



START PUNCH 



SET UP 

ACDRESSES FOR 

JCARD 



SET UP 

ADDRESSES FOR 

JCARO 



• CARD1 ■ 
•10CO, AREA, ERROR* 



* 0C10.AREA&1. * 

* JCARDXJLASTa, . 
•CHARACTER COUNT* 



0011, 
JCAROXJLASTa, 
AREAE1, COUNT 



# CAROL • 

♦2000, AREA, ERROR* 



NO .* READING » 
..X*. OR PUNCHING 
•-FINISHED .• 
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1130 COMMERCIAL 



STACK SUBROUTINE 



SELECT THE 

ALTERNATE 

STACKER 
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1130 COMMERCIAL SUB SUBROUTINE 



•JCARD.J.JLAST, 
•KCARD,K,KLAST, 
• NER 
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1130 COMMERCIAL 



TYPER/KEYBD SUBROUTINE 



START TYPER 



START KEYBD 



• IS 

TYPEWRITER 
«. BUSY 



IS ». YES 

KEYBOARD -•X.. 

. BUSY . » 



SET UP 

ADDRESSES FOR 

JCARD 



SET UP 

ADDRESSES FOR 
JCARD 



•MAKE CHARACTER 
•COUNT SIXTY IF 

• IT IS NOT 

• ALREADY 



•MAKE CHARACTER * 
•COUNT SIXTY IF • 

• IT IS NOT • 

• ALREADY * 



TYPEO 
1000, AREA 



• CC00,AREA61, • 

• AftEASl. » 
•CHARACTER COUNT* 



IS 

KEYBOARD 
.FINISHED 



TYPEO 
2000, AREA 



OOlO.AREAtl, 

JCARDXJLASTQ 
COUNT/2 
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1130 COMMERCIAL 



UH0LE FUNCTION 



• CALCULATE THE • 
•AMOUNT TC SHIFI* 

• RIGHT • 





*. AHOl 
• - ZEf 

YES -•"" I 


• . YES 
.• 

NO ". 

I 

ALL !• ! 

ONAL.* 

NO '. 

'. 




•FRACT 




* SHIFT RIGHT * - 

* TO DRUP • 
•FRACTIONAL PART* 






*. 


» SET Rt 

• EQUA 

* ZEf 


SULT I I SHIFT LEFT * I 

TO * • TO FILL WITH • 
a • * ZEROS • 






*. 




* STORE RESULT * '. 
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LISTINGS 



// JOB 
ff FOR 



CSPOOOIO 
CSP0OO2O 



* 1130 COMMERCIAL SUBROUTINE PACKAGE 
NAME NCOMP 
ONE WORD INTEGERS 
EXTENDED PRECISION 
LIST ALL 



PAGE 01 

CSP0OO3O 
CSPOOOfaO 
CSPOOOIO 
CSP00060 
CSP00070 



1130 COMMERCIAL SUBROUTINE PACKAGE PAGE 0* 

FUNCTION NCOMP(JCAROtJ.JLAST.KCARD.K) CSP00G8Q 

DIMENSION jCARD(flO). KCARDtflOl CSP00090 

C COMPARE JCARDIJt WITH KCARDIK) THROUGH jCARD ( JLAST ) * CSPOOIOO 

O — — NCOMP»-.0.+ AS tJCARD-KCAROJ IS -.0.+. CSP00110 

C 'COLLATING SEQUENCE ASCENDING IS ABCDEFGHl JKLMNOPQRSTUVWXYZO1234567CSPQO120 

C 89 •(++»*)-/.(»■•= CSP00130 

DO 2 JNOW-J. JLAST CSPOOIOO 

KNOW-K+JNOW-J CSP00150 

NC0MP«KCARDCKN0W>/8 CSPOOlbO 

NCOMP*JCARDUN0W>/8-NC0MP CSP00170 

IF INCOMP) 1,2.1 cspaoi^o 

2 CONTINUE CSP00190 

1 RETURN CSP002O0 

END CSP00210 



1130 COMMERCIAL SUBROUTINE PACKAGE 
KNOW -0002 



VARIABLE ALLOCATIONS 
NCOMP-0000 JNOW -O001 



STATEMENT ALLOCATIONS 
2 «003F 1 «0047 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
5UBSC SUB IN 

INTEGER CONSTANTS 
8-O0O6 

CORE REQUIREMENTS FOR NCOMP 
COMMON VARIABLES 

END OF COMPILATION 



// DUP 

♦STORE WS UA NCOMP 

2A45 0005 



CSP0022O 
CSP00230 



*» 1130 COMMERCIAL SUBROUTINE PACKAGE 

* NAME MOVE 

« ONE WORD INTEGERS 

* EXTENDED PRECISION 

* LIST ALL 



PAGE 01 

CSP00250 
CSP00260 
CSP00270 
CSP0O28O 
CSP00290 



1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE MOVEI JCARD. J. JLAST. KCARD.K ) 

DIMENSION JCARDteO). KCARDC80J 
C MOVE JCARDCJ) TO KCARD(K> THROUGH JCARDI JLAST ) . 

DO 1 JNOW-J. JLAST 

KNOW-K+JNOW-J 
1 KCARDtKNOW>»JCARD( JNOW) 

RETURN 

END 



PAGE 02 

CSP00300 
CSP 00310 
CSP0O320 
CSP00330 
CSP00340 
CSP0035Q 
CSP00360 
CSP00370 
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1130 COMMERCIAL SUBROUTINE PACKAGE 

VARIABLE ALLOCATIONS 
JNOW -OOOO KNOW *0001 

STATEMENT ALLOCATIONS 
1 -001E 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
SUBSC SUB IN 

CORE REQUIREMENTS FOR MOVE 
COMMON VARIABLES 4 PR 

END OF COMPILATION 



// DUP 
•STORE 
2A4A 0004 



MS UA MOVE 



CSP003B0 
CSP0O390 



»* 1130 COMMERCIAL SUBROUTINE PACKAGE 

• NAME EDIT 

• ONE WORD INTEGERS 

• EXTENDED PRECISION 

• LIST ALL 



PAGE 01 

CSPOO410 
CSP 00420 
CSP00430 
CSP00440 
CSP00450 



1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE EDIT! JCARO. J.JLAST.KCARD.K.KLASTI 

DIMENSION JCARDC80). KCARDI80I 

C JCARD(J) THROUGH JCARD I JLAST I IS EDITED INTO EDIT FIELD. 

C EDIT FIELD IS AT KCARDIKI THROUGH KCARDIKLASTI • 

C CHECK FOR NEGATIVE FIELD. IF SO. CLEAR 11 ZONE. 

CALL N20NEUCARD.JLAST.4.NSIGNI 

NDUMP*164*8 

MONEY'16448 

NZRSP"0 

c MAIN SCAN. INSERT CHARACTERS AND CHECK ZERO SUPPRESSION. 

C BLANK-16448. 0—4032. •■2S61&. 1-23360. ..27*56. —24640. R' 

KNOW-KLAST 

JNOW«JLAST 

17 KTEST-KCARDIKNOWI 
IF I KTEST I 33.34.34 

33 IF (KTEST»4032> 11.19.11 

34 IF (KTEST-16448) 13.20.13 

13 IF (KTEST-236161 14,18.14 

14 IF (KTEST-23360) 11.2B.11 

18 NDUMP«KT£ST 

28 MONEY»KTEST 

19 NZRSP-KNOW 

20 IF (JNOW-J) 11.26.26 

26 KTEST-JCAROIJNOWI 
KCARD(KNOW>«KTEST 
JNOW'JNOW-1 

IF INZRSP) 11.11.9 
9 IF (KTEST) 3S.36.36 

35 IF (KTEST +4032) 2S.11.2S 

36 IF (KTEST-164481 23.11.23 
23 IF (KTEST-27456) 25.11.25 
25 NZRSP-KNOW-1 

11 KNOW-KNOW-1 

IF (KNOW-K) 27.17.17 
c RESTORE 11 ZONE IF FIELD WAS MINUS. 

27 CALL NZONE(JCARD.JLAST.NSION.KTEST) 

C FILL FIELD WITH ASTERISKS IF OVERFLOW. 

IF IJNOW-JI 29.21.21 

21 CALL FILLIKCARD.K.KLAST. 236161 

C PAUSE O0O1 HERE IF DESIRED FOR ERROR CORRECTION PURPOSES. 

GO TO 30 
c REMOVE CR OR - FROM EDIT IF POSITIVE FIELD. 

29 IF (NSIGN-21 2.3.2 

2 KTEST-KCARDIKLASTI 
IF (KTEST) 31.32.32 

32 IF (KTEST-246401 3.5.3 

31 IF IKTEST-*9920) 3.6.3 

6 KCARD(KLAST-1>"16448 

5 KCARD(KL»STI»16*48 

C ZERO SUPPRESSION. NDUMP IS SUPPRESSION CODE. NZRSP IS END. 

3 IF INZRSPI 30.30.22 

22 CALL FILLIKCARD.K.NZRSP.NDUMPI 

C— INSERT FLOATING DOLLAR SIGN OR ASTERISK OR BLANK. 



PAGE 02 

CSP 00460 
CSP00470 
CSP 00480 
CSP00490 
CSP00500 
CSPO0S10 
CSP00520 
CSP00530 
CSP00S40 
CSP00550 
-9920.CSP00560 
CSP00S7O 
CSP005S0 
CSP00590 
C5P00600 
CSP00610 
CSP00620 
CSP00630 
CSP 00640 
CSP0O65O 
CSP 00 660 
CSP00670 
CSP00680 
CSP00690 
CSP00700 
CSP00710 
CSPQ0720 
CSP00730 
CSP00740 
CSP00750 
CSP00760 
CSP00770 
CSP0O78O 
CSP00790 
CSP 00 800 
CSP00S1O 
CSP 00820 
CSP00830 
CSP00B40 
CSP0085O 
CSP00860 
CSP00870 
CSPOOB60 
CSP0OB9O 
CSP00900 
CSP00910 
CSP00920 
CSP00930 
CSP0O94O 
CSP00950 
CSP0O960 
CSP0097O 
CSP 00960 
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1130 COMMERCIAL SUBROUTINE PACKAGE 

KCARO I NZRSP t 'MONEY 
30 RETURN 

END 



CSP00990 
CSP01000 
CSP01010 



1130 COMMERCIAL SUBROUTINE PACKAGE 
MONEY-00O2 



VARIABLE ALLOCATIONS 
NSIGN-0000 NDUMP-0001 



• 0065 
■00B3 
-0106 



STATEMENT ALLOCATIONS 

17 -0050 33 -0050 34 

9 -00A7 35 -OOAB 36 

32 -00F8 31 -0100 6 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
NZONE FILL SUBSC SUBIN 

INTEGER CONSTANTS 

4-000A 16448-000B O-OOOC 
9920-001* 



NZRSP- 0003 
13 



23 



-006B 
-00B9 
-010F 



KNOW -0004 JNOW -I 



-0071 
-OOBF 

-one 





PAGE 04 


.0005 


KTEST-0006 


*0079 


28 -0070 


■00C5 


27 «00D1 


-one 


30 -0128 



-0081 
-0000 



-0085 
•0OE5 



-0086 
-OOEB 



4032-OOOD 23616-000E 23360-OOOF 



1-0010 27456-0011 



2-0012 24640-0013 



CORE REQUIREMENTS FOR EDIT 
COMMON VARIABLES 



END OF COMPILATION 



10 PROGRAM 



// DUP 

•STORE WS UA EDIT 

2A4E 0012 



CSP01020 
CSP01030 



» 1130 COMMERCIAL SUBROUTINE PACKAGE 
NAME GET 

ONE WORD INTEGERS 
EXTENDED PRECISION 
LIST ALL 



PAGE 01 

CSP01050 
CSP01060 
CSP01070 
CSP01080 
CSP01090 



1130 COMMERCIAL SUBROUTINE PACKAGE PAGE 02 

FUNCTION GETIJCARO. J. JLAST. SHIFT) CSP0110O 

DIMENSION JCARDI80) CSP01U0 

C GET FIELD FROM JCARDIJ) THROUGH JCARO( JLAST) . CSP0112O 

C~ — SHIFT » A CONSTANT TO SHIFT DECIMAL PT FROM WHOLE NUMBER FORM. CSP01130 

C—-- CHECK SIGN. CLEAR 11 ZONE IF NEGATIVE. CSP01140 

CALL NZONEIJCARD. JLAST. 4.NSIGH! CSP01150 

GET-O. CSP01160 

C-— — START MAIN SCAN. GET DIGITS. CSP0117O 

DO 3 JNOW-J. JLAST CSP01180 

JTEST-JCARDIJNOW) CSP01190 

C- CHECK FOR BLANK OR NON-NUMERIC CHARACTER. GET-O. IF NON-NUMERIC. CSP0120O 

IF IJTEST) 4.2.2 CSP01210 

2 IF IJTEST-1644B) 6.5.6 CSP01220 

5 JTEST--4032 CSP01230 
4 IF (JTEST*4032) 6.3.3 CSP01240 
C— -— BLANK-1644B. 0—4032* CSP0125O 

3 GET-10.«GET*FL0AT((JTEST*4032)/256) CSP01260 
C-—— SHIFT DECIMAL POINT. CSP01270 

GET-SHIFT«GET CSP01280 

C- — —CHECK SIGN. RESTORE 11 ZONE IF NEEDED. CSP01290 

CALL NZONEIJCARD. JLAST .NSIGN.JTEST) CSP01300 

IF INSIGN-2) 7.11.7 CSP01310 

11 GET—GET CSP0132O 

7 RETURN CSP01330 

C SET GET-O. IF NON-NUMERIC CHARACTER. CSP01340 

6 GET-O. CSP01350 
C PAUSE 0003 HERE IF DESIRED FOR ERROR CORRECTION PURPOSES. CSP01360 

GO TO 7 CSP01370 

END CSP01360 
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1130 COMMERCIAL SUBROUTINE PACKAGE 

VARIABLE ALLOCATIONS 
GET >O0OO NSIGN-0009 JNOW *000A JTEST-OOOB 

STATEMENT ALLOCATIONS 
2 »0043 5 -0049 4 »O04E 3 -0054 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
N20NE EAOD EMPY 



ELD 



REAL CONSTANTS 

•OOOOOOOOOE 00-OOOE 



INTEGER CONSTANTS 

4-0014 16448-0015 



CORE REQUIREMENTS FOR GET 
COMMON VARIABLES 



END OF COMPILATION 



ESTO FLOAT 
•1OOO0OO00E 02-0011 
4032-0016 256-0017 
14 PROGRAM 134 



// DUP 

•STORE 
2A60 OOOA 



WS UA GET 



CSP01390 
CSP01400 



// ASM 

** WHOLE NUMBER SUBROUTINE FOR 1130 COMMERCIAL SUBROUTINE PACKAGE 

* NAME WHOLE 

» LIST (1132 PRINTER! 



CSf-ui4lO 
(ID) CSP01420 
(ID) CSP01430 

CSP01440 



0006 




262164C5 




ENT 


WHOLE 








• X*WHOLE(Y>« WITH Y IN 








« X IN FAC 


BECOMES THE I 


0000 





0000 


0BL1 


DC 





0001 





0001 




DC 


1 


001F 






MANT 


EOU 


31 


0002 





009F 


C159 


DC 


128*MANT 


0003 





001F 


C31 


DC 


MANT 


0004 





189F 


SRT 


SRT 


MANT 


0009 





0800 


HO8O0 


DC 


/OSOO 


0006 





0000 


WHOLE 


DC 





0007 





COFA 




LO 


C159 


oooa 





9370 




S 


3 123 


0009 


01 


4C28001A 




B5C 


L D0NE>»2 


OOOB 





90F7 




S 


C31 


oooc 


01 


4C10001E 




BSC 


L FRACT .- 


OOOE 





B0F5 




A 


SRT 


OOOF 





D005 




STO 


RIGHT 


0010 





90F4 




S 


HOBOO 


0011 





0006 




STO 


LEFT 


0O12 





CB7E 




LOO 


3 126 


0O13 





4828 




BSC 


♦Z 


001* 





98EB 




SD 


DBL1 


0015 





1880 


RIGHT 


SRT 





0016 





4828 




BSC 


♦ Z 


0017 





88E8 




AD 


DBL1 


0Ol» 





1080 


LEFT 


SLT 





0019 





DB7E 


STORE 


STO 


3 126 


001* 


01 


74010006 


DONE 


MDX 


L WHOLE. 1 


001C 


01 


4C800006 




BSC 


I WHOLE 


0O1E 





10E0 


FRACT 


SLC 


32 


0O1F 





0370 




STO 


3 123 


0020 





70F8 




MDX 


STORE 


0022 








END 





PAGE 1 

SUBROUTINE ENTRY POINT CSP014S0 

FAC TO START CSP01460 

NTEGRAL PART OF Y. CSP01470 

DBL CONSTANT OF 1 CSP014B0 

REST OF DBL1 CONSTANT CSP01490 

MANTISSA LENGTH CSP015O0 

EXPONENT OF FULL INTEGER CSP01510 

MANTISSA LENGTH CSP01520 

SRT MANTISSA LENGTH CSP01530 

D1FF BETWEEN SRT AND SLT CSP01S40 

ARGUMENT ADDRESS HERE CSP01550 

EXP OF FULL INTEGER CSP01560 

SUBTRACT EXP OF Y CSP01570 

BRANCH IF ALL INTEGER C5P015B0 

SUBTRACT MANTISSA LENGTH CSP0159C 

BRANCH IF ALL FRACTIONAL CSP0160C 

CREATE RIGHT SHIFT CSP01610 

STORE RI6HT SHIFT CSP01620 

CREATE LEFT SHIFT CSP01630 

STORE LEFT SHIFT CSP01640 

PICK UP MANTISSA CSP01650 

CHECK FOR NEGATIVE MANTI5A CSP01660 

SUBTRACT 1 IF NEGATIVE CSP01670 

RIGHT SHIFT CSP01680 

CHECK FOR NEGATIVE MANTISA CSP01690 

ADO 1 IF NEGATIVE CSP01700 

LEFT SHIFT CSP01710 

STORE MANTISSA CSP01720 

CREATE RETURN ADDRESS CSP0173O 

RETURN TO CALLING PROGRAM CSP01740 

ZERO ACC AND EXT CSP01750 

ZERO THE EXPONENT CSP01760 

ZERO THE MANTISSA CSP01770 

END OF WHOLE SUBROUTINE CSP01780 



NO ERRORS IN ABOVE ASSEMBLY. 



// DUP 
•STORE 
2A6A 0003 



WS UA WHOLE 



CSP01790 

CSP01800 



•• 1130 COMMERCIAL SUBROUTINE PACKAGE 

•NAME PUT 

•ONE WORD INTEGERS 

•EXTENDED PRECISION 

•LIST ALL 



PAGE 01 

CSP01B20 
CSP01B30 
CSP01B40 
CSP01B30 
CSP01B60 
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1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE PUT< JCARD* J* JLAST,VAR.ADJST»N ) 

DIMENSION JCARDI10I 
C-~— PUT VAR INTO JCARD(J) THROUGH JCARDI JLAST I. 
C~— ADJST ■ A NUMBER TO HALF ADJUST THE VARIABLE VAR. 
C-- — N ■ THE NUMBER OF POSITIONS THE DECIMAL POINT SHOULD 

DIGS»WHOLE(ABS(VARI*ADJST> 

IFINI 3.3.1 

1 DO 2 JNOW-l.N 

2 DIGS»WH0LEIDIG5*0.1 I 
C PUT DIGITS IN FIELD 

3 JNOW=JLAST 

4 DIGT«WH0LEID1GS»0.1> 

JCARD (JNOW>-256«IF!XIOIGS-10.0»D1GT 1-4032 

DIGS-DIGT 

IF(JNOW-J) 6.6.5 

5 JN0W»JN0W-1 
GO TO 4 

C PUT 11 PUNCH OVER LOW ORDER DIGIT IF NEGATIVE. 

6 IFCVAR] 7.8*8 

7 CALL N20NEIJCARD.JLAST.2.JNOWI 

8 RETURN 
END 



PAGE 02 

CSP01870 
CSP01880 
CSP01890 
CSP01900 
IE MOVED LEFTCSP01910 
CSP01920 
CSP01930 
CSP01940 
CSP01950 
CSP0196C 
CSP01970 
CSP01980 
CSP01990 
CSPO2O00 
CSP020IO 
CSP02O20 
C5P02030 
CSP02040 
CSP02050 
CSP02060 
CSP02O70 
CSP02O8O 



1130 COMMERCIAL SUBROUTINE PACKAGE 



VARIABLE ALLOCATIONS 
DIGS -0000 DIGT -0003 

STATEMENT ALLOCATIONS 
1 «0039 2 -003D 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
WHOLE EABS NZONE 

REAL CONSTANTS 

.100000000E 00-OOOC 

INTEGER CONSTANTS 

1«0012 256-0013 

CORE REQUIREMENTS FOR PUT 
COMMON VARIABLES 

END OF COMPILATION 



JNOW -0009 



EADD EMPY ELD 
•10O00OO00E 02-OOOF 
4032-0014 2-0015 



12 PROGRAM 



140 



// DUP 

•STORE WS UA PUT 
2A60 OOOA 



CSP02O90 
CSP02100 



** 1130 COMMERCIAL SUBROUTINE PACKAGE 

* NAME NZONE 

» ONE WORD INTEGERS 
« EXTENDED PRECISION 

• LIST ALL 



PAGE 01 

CSP02120 
CSP02130 
CSP02140 
CSP02150 
C5P02160 



1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE NZONE ( JCARD. J.NEWZ .NOLDZI 

DIMENSION JCAROI80) 
C— —SPECIAL CHARACTER* JCARDIJ) IS THEN ZONED 12 

C N0LDZ-1.Z.3.*. OR MORE AS JCARDIJ) WAS A-I • J- 

C— — ZONE* NO ZONE* OR LEFT ALONE AS NEWZ-1«2*3*< 
*—— -JCARDIJI IS ALWAYS LEFT ALONE IF JCARDIJI WAS 
C— — ZERO CHANGED TO 11 ZONE IS -. - CHANGED TO NO 
C— ZERO CODE IS -4032. - COOE IS 24640. 

JTEST»JCARDIJ> 

IF (JTESTI 4,5,5 

4 IF IJTEST+4032! 6.6.8 

6 IF (NEWZ-21 12*7.12 

7 JCARDIJI -24640 
12 NOLDZ-4 

GO TO 2 

5 IF (JTEST-24640) 8*10*8 
10 NOLDZ-2 

IF INEWZ-4) 2*9*2 
9 JTEST—12224 

3 JCARD I J ) ■ JTEST.4096* ( NEWZ-NOLDZ I 
2 RETURN 

8 N0L0Z-5-KJTEST-4096 1/4096 
IF IN0LDZ-5I 1*2*2 

1 IF INEWZ-51 3*2.2 
END 



PAGE 02 

CSP02170 
CSP02180 
ZONE. 11 ZONE* CSP02190 
R» S-Z* 0-9* OR A CSP02200 
. OR MORE. CSP02210 

A SPECIAL CHARACTER, CSP02220 
ZONE IS ZERO, CSP02230 
CSP02240 
CSP02250 
CSP 02260 
CSP02270 
CSP02280 
CSP02290 
CSP02300 
CSP02310 
CSP02320 
CSP02330 
CSPO2340 
CSP023SO 
CSPO2360 
CSP02370 
CSP02380 
CSP02390 
CSP02400 
CSP02410 
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1130 COMMERCIAL SUBROUTINE PACKAGE 

VARIABLE ALLOCATIONS 
JTEST-0000 

STATEMENT ALLOCATIONS 
4 -002C 6 -0032 7 -0038 12 -0041 5 -0047 

1 -007F 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDEO PRECISION 

CALLEO SUBPROGRAMS 
SUBSC SUB IN 

4032-0002 2-0003 2*640-0004 4-0005 12224.0006 

CORE REQUIREMENTS FOR N20NE 
COMMON VARIABLES 2 PROGRAM 134 

END OF COMPILATION 



// DUP """"^ 

•STORE WS UA NZONE CSP02430 

2A77 0009 



PAGE 01 

.. 1130 COMMERCIAL SUBROUTINE PACKAGE r!pn«!S 

* NAME FIU - CSP02470 
. ONE WORD INTEGERS cfpO24S0 

* EXTENDED PRECISION rspoi*»0 
. LIST ALL CSP02490 



1130 COMMERCIAL SUBROUTINE PACKAGE l> * 0E ° 2 

SUBROUTINE FlLLUCARD.ji JLAST.NCHI 5!~S«?n 

DIMENSION JCARDIBOI ,!SS«tn 

c FILL JCARDIJ) THROUGH JCARO(JLAST) WITH NCH. r!S2«X 

DO 1 JNOW-J.JLAST CSP02540 

1 JCARDIJNOWI-NCH C5P02550 

CSP02560 



RETURN 
END 



1130 COMMERCIAL SUBROUTINE PACKAGE 

VARIABLE ALLOCATIONS 
JNOW -0000 

STATEMENT ALLOCATIONS 
1 -0011 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
SUBSC SUB IN 

CORE REQUIREMENTS FOR FILL 
COMMON VARIABLES 2 PROGRAM 

END OF COMPILATION 



// DUP « P0 " 70 



•STORE WS UA FILL 
2A80 0003 



CSP02560 



// ASM C5PO2590 

.'. BACKER SELECT SUBROUTINE FOR 1130 COMMERCIAL SUBROUTINE PACKAGE! ID] CSP02600 

. NAME STACK " Dl Jf"-™ 

• LIST <1132 PRINTER) CSP02620 
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O0O2 


228C10D2 


ENT 


STACK 




C5P02630 


0000 


0000 


IOCC DC 







CSP02640 


0001 


1480 


OC 


/1*80 




CSP02650 


0002 


0000 


STACK DC 


»-• 




C5P02660 


0003 


08FC 


MO 


IOCC 


SELECT STACKER 


CSP02670 


0004 01 


4C800002 


BSC i 


1 STACK 


RETURN 


CSP02680 


0006 




END 






CSP02b90 



NO ERRORS IN ABOVE ASSEMBLY. 



// OUP 
•STORE 
2A83 0002 



WS UA STACK 



CSP02700 
CSP0271O 



« 1130 COMMERCIAL SUBROUTINE PACKAGE 
NAME ADD 

ONE WORD INTEGERS 
EXTFNDED PRECISION 

LIST ALL 



PAGE 01 

CSP02730 
CSP02740 
CSP02 750 
CSP0276O 
CSP02770 



1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE ADO [ JCARD* J * JLAST .KCARD.K • KLAST.NER ) 

DIMENSION JCARD(BO)* KCARDC80) 

C — AOD FIELD AT JCARD TO FIELD AT KCARD. SUBTRACTING IF UNLIKE 

C SET NER-KLAST IF OVERFLOW OCCURS. 

j> — — CLEAR SIGNS AND ADD* 

CALL NSIGN(JCARD.JLAST.l.JSIGN) 

CALL N5IGN ( KCARDt KLAST • 1 . KS IGN ) 

LSIGN=JSIGN»KSIGN 

KNOW»KLAST*J- JLAST 

IF (KNOW-KI 8.7.7 
7 00 6 JNOW-J. JLAST 

K CARD t KNOW ) =LS I GN* JCARD I JNOW) +KCARDt KNOW » 
b KNOW-KNOW+1 

5 CALL CARRY(KCARD#K»KLA5T*KN0W) 

IF (KNOW) 1(2*3 
:—— COMPLEMENT AND CHANGE SIGN OF KCARD IF CARRY IS NEGATIVE. 
1 KCARDIKLAST)=KCARD<KLAST)-MCNOW 

DO 4 KNOW>K*KLAST 
'■* KCARD I KNOW >=9-KCARD( KNOW 1 

KSIGN=— KSIGN 

GO TO 5 

O OVERFLOW HAS OCCURRED IF CARRY IS POSITIVE. 

3 CALL FILL(KCARD.K.KLAST*9) 
3 NER-KLAST 

C RESTORE SIGNS AND RETURN. 

I CALL NSIGN(KCARD.KLASTfKSIGN.KNOW) 

CALL NSIGNUCARD.JLAST.JSIGNONOWI 

RETURN 

END 



PAGE 02 

CSP027BO 
CSP02790 
SIGNS. CSP02800 
CSP0281Q 
CSP02820 
CSP02830 
CSP02840 
CSP02850 
CSP02860 
CSP 02870 
C5P02880 
CSP02B90 
CSP02900 
CSP02910 
CSP0292O 
CSP02930 
CSP02940 
CSP0295O 
CSP0296O 
CSP0297O 
CSP02980 
CSPQ2990 
CSP03000 
CSP03010 
CSPQ302Q 
CSP03030 
CSP03040 
CSPQ3Q50 
CSP03O60 



1130 COMMERCIAL SUBROUTINE PACKAGE 
LSIGN-0002 



VARIABLE ALLOCATIONS 
JSIGN-0000 KS I GN>0001 



STATEMENT ALLOCATIONS 
7 -005S 6 -006E 5 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENOED PRECISION 

CALLED SUBPROGRAMS 
NSIGN CARRY FILL SI 

INTEGER CONSTANTS 

1-0008 9*0009 

CORE REQUIREMENTS FOR ADD 
COMMON VARIABLES 

END OF COMPILATION 



-007C 



KNOW >0003 JNOW "0004 
1 -0088 4 -0097 



"00B1 8 =0067 2 -Q0BB 



// DUP 
•STORE 
2A85 OOOC 



WS UA ADD 



CSP03O7O 
CSP03080 



-136- 



•• 1130 COMMERCIAL SUBROUTINE PACKAGE 

• NAME SUB 

» ONE WORD INTEGERS 

• EXTENDED PRECISION 

• LIST ALL 



PACE 01 

CSP03100 
CSP03UO 
C5P 03120 
CSP0313O 
CSP03140 



1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE SUB( JCARD.J.JLAST .KCARD .K.KLAST tNER ) 

DIMENSION JCARD(BO). KCARDIBOJ 

C —SUBTRACT FIELD AT JCARD FROM FIELD AT KCARD. 

C SET NER«KLAST IF OVERFLOW. 

C CHANGE THE SIGN OF JCARD* THEN ADD. 

CALL NSIGNIJCARD.JLAST.O.JSIGNI 

CALL ADD! JCARD. J, JLAST. KCARD .K.KLAST.NER) 

CALL NSIGN(JCARD.JLAST.O.JSIGN) 

RETURN 

END 



PAGE 02 

CSP03150 
CSP03160 
CSP0317O 
CSP0318O 
CSP 03190 
CSP03200 
CSP03210 
CSP03220 
CSP03230 
CSP03240 



1130 COMMERCIAL SUBROUTINE PACKAGE 

VARIABLE ALLOCATIONS 
JSIGN-OOOO 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
NSIGM ADD SUB IN 

INTEGER CONSTANTS 
0-0002 

CORE REQUIREMENTS FOR SUB 
COMMON VARIABLES 2 PRi 

END OF COMPILATION 



// DUP 
•STORE 
2A91 0004 



WS UA SUB 



CSP03250 
CSP 03260 



«» 1130 COMMERCIAL SUBROUTINE PACKAGE 

* NAME MPY 

« ONE WORD INTEGERS 
i EXTENDED PRECISION 

• LIST ALL 



PAGE 01 

CSP032S0 

CSP03290 

CSP03300 

CSP03310' 

CSP03320 



1130 COMMERCIAL SUBROUTINE PACKAGE PAGE 02 

SUBROUTINE MPYI JCARD.J. JLAST .KCARD.K.KLAST.NERI CSP0333O 

DIMENSION JCAR0I80I. KCARDI803 CSP03340 
C- — —MULTIPLY FIELD AT JCARD TIMES FIELD AT KCARD. PRODUCT REPLACES CSP03350 

C- — —FIELD AT KCARD. WHICH IS EXTENDED TO THE LEFT. CSP03360 

KSTRT«K*J-JLAST-1 CSP03370 

IFIKSTRT) 6.6.7 CSP033S0 

6 NER-KLAST CSP03390 
GO TO- 9 CSP03400 

C SAVE SIGNS. CSP03410 

7 CALL NSIGNIJCARD.JLAST.l.JSIGN) CSP03420 
CALL NSIGNIKCARD.KLAST.l.KSIGNI CSP03430 

C FILL KCARD EXTENSION WITH ZEROS. CSP03440 

CALL FILLIKCARD.KSTRTtK-l.OI CSP03450 

C— PASS OVER LEADING ZEROS TO FIND JFRST. CSP03460 

DO 3 JFRST-J. JLAST CSP03470 

IF (JCARD (JFRST I) 3.3.4 CSP034S0 

3 CONTINUE CSP03490 
C_ SET KCARD TO ZEROS IF ALL ZEROS. CSP03500 

CALL FILLIKCARD.K.KLAST.O] CSP03510 

GO TO 8 CSP03520 

C— — MAIN MULTIPLICATION LOOP FOLLOWS. CSP03530 

4 DO 1 KM-K.KLAST CSP03540 
MULT-KCARO(KM) CSP03550 
IF (MULTI 1.1.2 CSP03560 

2 KCARD(KM)-0 CSP03570 
KNOW-KM+JFRST-JLAST CSP03580 
DO 5 JNOW- JFRST .JLAST CSP03590 
KCARD (KNOW I -MULT»JCARD< JNOWI+KCARDt KNOW) CSP03600 

3 KN0W«KN0W+1 CSP03610 
1 CONTINUE CSP03620 

CALL CARRYIKCARD.KSTRT.KLAST.KNOW) CSP03630 

C— RESTORE SIGNS AND RETURN. CSP03640 

CALL NS1GN(KCARD.KLAST«JSIGN»KSIGN»KN0W) CSP03650 

8 CALL NSIGNIJCARD.JLAST.JS1GN.JN0U) CSP03660 

9 RETURN CSP03670 
END CSP03680 
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1130 COMMERCIAL SUBROUTINE PACKAGE 

VARIABLE ALLOCATIONS 
KSTRT-0003 JSIGN-0004 KSIGN-0005 JFRST-0006 KM 

STATEMENT ALLOCATIONS 
6 -0046 7 "004E 3 -0073 4 -0083 2 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 



PAGE 03 
-0007 MULT -0008 KNOW -0009 JNOW -OOOA 
-0094 5 -OOBE 1 -OOCC 8 -00E7 



CALLED SUBPROGRAMS 
NSIGN FILL CARRY 



INTEGER CONSTANTS 

1-OOOE O-OOOF 



CORE REQUIREMENTS FOR MPV 
COMMON VARIABLES 



END OF COMPILATION 



SUBSC SUBIN 



14 PROGRAM 



// OUP 

•STORE WS UA MPY 

2A95 OOOE 



CSP03690 
CSP03700 



»• 1130 COMMERCIAL SUBROUTINE PACKAGE 

• NAME DIV 

• ONE WORD INTEGERS 

• EXTENOED PRECISION 

• LIST ALL 



PA3E 01 

CSP0372D 
CSP03730 
CSP03740 
CSP037S0 
CSP03760 



1130 COMMERCIAL SUBROUTINE PACKAGE 



C 

C 

C 



11 
c 



PAGE 02 

SUBROUTINE DIVC JCARD. J. JLAST. KCARD. K.KLAST.NERI CSP03770 

DIMENSION JCARDI80I. KCARD(80I CSP03780 

—DIVIDE FIELD AT KCARD BY FIELD AT JCARD. OUOTIENT REPLACES FIELD CSP03790 

—AT KCARDt WHICH IS EXTENDED TO THE LEFT. CSP03800 

—REMAINDER IS IN LOW ORDER DIGITS OF KCARD. CSP03810 

—SET NER-KLAST IF DIVISION BY ZERO ATTEMPTED. CSP03820 

—SAVE SIGNS. CSP03830 

CALL NSIGNUCARD.JLAST.l.JSIGNI CSP03840 

CALL NSIGNIKCARD.KLAST.l.KSIGNI CSP03850 

—FILL KCARD EXTENSION WITH ZEROS. CSP03860 

JSPAN-JLAST-J+1 CSP03870 

KSTRT-K-1 CSP03880 

KLOW-K-JSPAN CSP03890 

IF (KLAST-KSTRT-JSPAN! 9.10.10 CSP03900 

IF(KLOW) 9.9.11 CSP03910 

CALL FILLIKCARO.KLOW.KSTRT.OI CSP03920 

—PASS OVER LEADING ZEROS TO FIND JFRST. CSP03930 

DO 3 JFRST.J.JLAST CSP03940 

IF (JCARD (JFRST) I 3.3.* CSP0395O 

CONTINUE CSP03960 

—DIVISION BY 2ER0 WAS ATTEMPTED. CSP03970 

NER-KLAST CSP03980 

GO TO B CSP03990 

—FIND TRIAL DIVISOR AND DIVIDE. CSP04000 

JH10H-JCARDIJFRST) CSP04010 

KPUT-KLOW»JLAST-JFRST C5P04020 

KST0P"KLAST*JFRST-JLAST-1 CSP04030 

00 1 KM-KSTRT.KSTOP CSP04040 

MULT" ( 10«KCARD< KM I fKCARDI KM-tl 1 1 /JHIGH CSP04050 

NQUO.MULT CSP04060 

IF (MULTI 7.7.2 CSP °*?!S 

KNOW-KM+1 CSP04080 

DO 5 JNOW-JFRST.JLAST CSP04090 

KCARD ( KNOW 1 -KCARD ( KNOW ) -MULT« JCARD ( JNOW ) CSP04100 

KNOW-KNOW-H CSP04110 

CALL CARRY(KCARD.KM.KNOW-l.KNOW) CSP04120 

—ADD BACK DIVISOR IF OVERDRAW. CSP04130 

IF IKNOWI 6.7.7 CSP04140 

KCARD(KMI-KCARD(KM)*10»KN0W CSP04150 

MULT--1 CSP04160 

NOUO-NOUO-1 CSP04170 

00 TO 2 CSP04180 

—STORE OUOTIENT 0IG1T. "-?*}!!! 

KCARDIKPUTI-NOUO CSP04200 

KPUT-KPUT+1 C5P04210 

—RESTORE SIGNS. REMAINDER GETS SIGN OF DIVIDEND. CSP04220 

CALL NSI6N(KCARD.KLAST-JSPAN.JSIGN»KSIGN.KN0WI CSP04230 

CALL NSIGN(JCARD.JLAST.JSIGN.JNOW) CSP04240 

CALL NSIGN(KCARD.KLAST.KSIGN.KNOW) CSP04250 

RETURN CSP04260 

HI" *" CSP04270 
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1130 COMMERCIAL SUBROUTINE PACKAGE 



VARIABLE ALLOCATIONS 
JSIGN-0006 KSIGN-0007 
MULT >0010 NOUO -0011 



JSPAN-0008 
KNOW -0012 



KSTRT-0009 KLOW -OOOA JFRST-OOOB JHIGM-OOOC KPUT -OOOD KSTOP-OOOE KM 
JNOW -00X3 



STATEMENT ALLOCATIONS 
10 -0O6E 11 -00T2 
8 -0134 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
NSIGN FILL CARRY 

INTEGER CONSTANTS 

1-0016 0-0017 



SUBSC SUB IN 

10-0018 



CORE REQUIREMENTS FOR DIV 
COMMON VARIABLES 22 PROGRAM 



ENO OF COMPILATION 



// OUP 
•STORE 
2AA3 001J 



WS UA DIV 



CSP 0*280 
CSP 0*290 



«• 1130 COMMERCIAL SUBROUTINE PACKAGE 

• NAME ICOMP 

• ONE WORD INTEGERS 

• EXTENDED PRECISION 

• LIST ALL 



PAGE 01 

CSP 0*3 10 
CSP 0*320 
CSP 0*3 30 
CSP0*3*0 
CSP 0*350 



1130 COMMERCIAL SUBROUTINE PACKAGE 

FUNCTION ICOMPCJCARD.J.JLAST.KCARD.K.KLASTI 

DIMENSION JCARDtBO). KCARD(BO) 

C COMPARE INTEGER FIELD AT KCARO AGAINST FIELD AT JCARO. 

c _— -ICOMP=->0.-» AS IJCARD-KCAROI IS -.0.*. 

CALL NSIGNIJCARD.JLAST.l.JSIGN) 

CALL NSIGNIKCARD.KLAST.1.KS1GN) 

KSTRT-KLAST-.J-JLAST-1 

IF (K-KSTRTI 5. 5.* 

5 ICOMP— KSIGN 

DO 6 KNOW-K.KSTRT 

IF (KCARDIKNOWH 6.6.3 

6 CONT I NUE 

* KNOW-KSTRT+1 
JHASH-0 

DO 2 KSTRT-J.JLAST 
JMASH- JHASH+ JCARO I K STRT ) 
ICOMP.JCARDIKSTRTI-KCAROIKNOWI 
IF (ICOMPI 1.2.1 

2 KNOW-KNOW* 1 

IF (JSIGN«KSIGN*JHASH> 7.3.3 
1 IF IJS1GNKSIGN1 7.8.8 

7 ICOMP-1 

H 1C0MP-JSIGN»IC0MP 

3 CALL NSIGNUCARD.JLAST.JSIGN.KNOWl 
CALL NSIGNIKCARD.KLAST. KSIGN. KNOW I 
RETURN 

END 



PAGE 02 

CSP 0*360 
CSP0*37U 
CSP 0*380 
CSP 0*390 
CSPO**00 
CSP0**10 
CSP0**20 
CSPO**30 
CSPO***0 
CSP0**3C 
CSPO**60 
CSP 0**70 

csPO**ea 

CSP0**90 
CSPOfcbOO 
CSP0O10 
CSP04520 
CSPO*530 
CSPO*5*0 
CSP04550 
CSP0*i>60 
CSPO*570 
CSP 0*3 80 
CSP04590 
CSP0*6U0 
CSP04S10 
CSP0*620 



1130 COMMERCIAL SUBROUTINE PACKAGE 
V ICOMptoOOO L °jSIGN™0001 KSIGN-0002 KSTRT-0003 KNOW -000* JHASH-OOOS 

STATEMENT ALLOCATIONS , 

5 -00*2 6 -0054 4 -005C 2 -0088 1 -0OA2 7 -O0A9 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
NStGN SUBSC SUBIN 

INTEGER CONSTANTS 

1-0008 0-0009 

CORE REQUIREMENTS FOR ICOMP 
COMMON VARIABLES 8 PROGRAM 188 

END OF COMPILATION 
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// DUP 

•STORE WS UA ICOMP 
2AB8 OOOC 



CSP04630 
CSP04640 



»* 1130 COMMERCIAL SUBROUTINE PACKAGE 

* NAME NSIGN 

* ONE WORD INTEGERS 

* EXTENDED PRECISION 

* LIST ALL 



PACE 01 

CSP0466O 
CSP0*67O 
CSP04680 
CSP0469Q 
CSP 04700 



1130 COMMERCIAL SUBROUTINE PACKAGE PAGE 02 

SUBROUTINE NSIGN< JCARD. J*NEWS«NOLDS I CSP04710 

DIMENSION JCARD(SO) CSP04720 

C— — SIGN OF DECIMAL INTEGER AT JCARD1J) 15 SET +» - OR REVERSED AS CSP04730 

C —NEWS IS +li -1 OR 0. NOLDS IS SET TO +1 OR -1 AS JCARD(J) WAS + CSP0474O 

C OR -. CSP04750 

N0LDS=1 CSP04760 

JTEST=JCARDU) CSP04770 

IF (JTEST) li2.2 CSPQ4780 

1 N0LDS=-1 CSP04790 

2 IF (NEWS*JTEST) 3»4»5 CSP0480O 

4 IF (NEWS) 3»3.5 CSP04810 

3 JTEST—JTEST-1 CSP04820 

5 JCARDIJI«JTEST CSP04830 
RETURN CSP04B40 
END CSP04B50 



1130 COMMERCIAL SUBROUTINE PACKAGE 

VARIABLE ALLOCATIONS 
JTEST-0000 

STATEMENT ALLOCATIONS 
1 -0023 2 *0O28 4 =0031 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
SUBSC SUB IN 

INTEGER CONSTANTS 
1-0002 

CORE REQUIREMENTS FOR NSIGN 
COMMON VAR I ABL ES 2 PRl 

END OF COMPILATION 



// DUP 

•STORE 
2AC4 000 5 



WS UA NSIGN 



CSP04860 
CSP 04670 



*» 1130 COMMERCIAL SUBROUTINE PACKAGE 

* NAME A1DEC 

# ONE WORD INTEGERS 

# EXTENDED PRECI5I0N 

• LIST ALL 



PAGE 01 

CSP 04890 
CSPQ4900 
CSP04910 
CSPQ4920 
CSP04930 
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1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE A10ECI JCARD.J. JLAST ,NERI 

DIMENSION JCARDOO) 

c CONVERT FIELD AT JCARD FROM Al TO DECIMAL. CONVERTING BLANKS TO 

C IF NOT NUMERIC OR BLANK. SET ERROR INDICATOR TO SUBSCRIPT VALUE. 

CALL NZ0NE(JCARD. JLAST. 4.JSIGN) 

DO 8 JNOW-J. JLAST 

JTEST-JCARDtJNOWl 

IF UTESTI 2.3.3 

2 IF (JTEST.-4032) 4.1.1 

4 NER-JNOW 
GO TO 3 

3 IF IJTEST-16448) 4.5.4 

5 JTEST— 4032 

1 JCARDIJNOW)«(JTEST+4032)/256 

8 CONTINUE 

IF (JSIGN-21 6.7.6 
7 JCARDIJLAST)«-JCARD(JLASTI-1 

6 RETURN 
END 



PAGE 02 

CSP04940 
CSP04950 
•CSP04960 
CSPO4970 
CSP04980 
CSP 04990 
CSP 05000 
CSP05010 
CSP05020 
CSP05O30 
C5P05O40 
CSP05O50 
CSP05060 
CSP05070 
C5P05080 
CSP05090 
CSP05100 
CSP05110 
CSP05120 



1130 COMMERCIAL SUBROUTINE PACKAGE 
JTEST-0002 



PAGE 03 



VARIABLE ALLOCATIONS 
JSIGN-0000 JNOW -0001 



STATEMENT ALLOCATIONS 
2 -0032 4 -0038 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
NZONE SUBSC SU8IN 

INTEGER CONSTANTS 

4-0004 4032*0005 



CORE REQUIREMENTS FOR A1DEC 
COMMON VARIABLES 

END OF COMPILATION 



■ 003E 



16448=0006 256-0007 

PROGRAM 112 



// DUP 
•STORE 
2AC9 0008 



WS UA A1DEC 



CSP05130 
CSP05140 



»« 1130 COMMERCIAL SUBROUTINE PACKAGE 
« NAME DECA1 

• ONE WORD INTEGERS 

• EXTENDED PRECISION 

• LIST ALL 



PAGE 01 

CSP05160 
C5P05170 
CSP05180 
CSP05190 
CSP05200 



1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE DECAK JCARD.J. JLAST. NER1 

_ —DIMENSION JCARD 1 80 1 __ 

C-— CONVERT FIELD AT JCARD FROM DECIMAL TO Al. 

C IF NOT NUMERIC. SET ERROR INDICATOR TO SUBSCRIPT VALUE. 

JSIGN-4 

IF (JCARD I JLAST) I 1.2.2 

1 JSIGN-2 

JCARO (JLAST ) .-JCARD I JLAST I -1 

2 DO 3 JNOW-J. JLAST 
JTEST-JCARDIJNOW) 
IF (JTEST) 4.5.5 

5 IF (JTEST-10) 6.4.4 
4 NER-JNOW 

GO TO 3 

6 JCARD(JNOW)-256»JTEST-4032 

3 CONTINUE 

CALL NZONEI JCARD. JLAST. JSIGN. JNOW) 

RETURN 

END 



PAGE 02 

CSP05210 
CSP05220 
C5P05230 
CSP05240 
CSP 05250 
CSP05260 
CSP05270 
CSP05280 
CSPO5290 
CSP05300 
CSP05310 
CSP05320 
CSP05330 
CSP05340 
CSP05350 
CSP05360 
CSP05370 
CSP05380 
CSPO5390 
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1130 COMMERCIAL SUBROUTINE PACKAGE 
JTEST-0002 



VARIABLE ALLOCATIONS 
JSIGN-00OO JNOW -0001 



STATEMENT ALLOCATIONS 
1 -002A 2 -003A 5 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
NZONK SUBSC SU61N 

INTEGER CONSTANTS 

<t«0004 2-0OO5 

CORE REQUIREMENTS FOR DECA1 
COMMON VARIABLES 

END OF COMPILATION 



*00*B 



// DUP 

•STORE WS UA DECA1 

2AD1 oooa 



C5P05400 
CSP05*»10 



«• 1130 COMMERCIAL. SUBROUTINE PACKAGE 

* NAME CARRV 

» ONE WORD INTEGERS 
» EXTENDED PRECISION 

* LIST ALL 



PAGE 01 

CSP05430 
CSP05<»40 
CSP 05<*50 
CSP0546C 
CSP05470 



1130 COMMERCIAL SUBROUTINE PACKAGE 

SUBROUTINE CARRY ( JCARD. J» JLAST .KARRY1 

DIMENSION XARDteOJ 
C RESOLVE ALL CARRIES IN FIELD AT JCARD. 

NCARY«0 

JNOW-JLAST 
4 JTEST«JCARD( JN0W1 +NCARY 

NCARY=JTEST/10 

JTEST«JTEST-10*NCARY 

IF IJTESTJ 1»2»2 

1 JTEST-JTEST+10 
NCARY-NCARY-1 

2 JCAROt JNOWJ=jTEST 
JN0W»JN0W-1 

IF t JNOW-J) 3«4»4. 

3 KARRY-NCARY 
RETURN 

END 



PAGE 02 

CSP0S48C 
CSP05490 
KARRY 15 HIGH ORDER CARRY. CSP05500 
CSP05510 
CSPQ5520 
CSP05530 
CSP05540 
CSP0555O 
CSPO5560 
CSPO5570 
CSP055S0 
CSP05590 
CSP05600 
CSPO5610 
CSP05620 
CSP05630 
CSP056*0 



1130 COMMERCIAL SUBROUTINE PACKAGE 

VARIABLE ALLOCATIONS 
NCARY«0000 JNOW »0001 JTEST-0002 

STATEMENT ALLOCATIONS 
t> »001B 1 *003C 2 -00*8 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
EXTENDED PRECISION 

CALLED SUBPROGRAMS 
SUBSC SUB IN 



INTEGER CONSTANTS 

0»000<* 10-0005 



CORE REQUIREMENTS FOR CARRY 
COMMON VAR I ABL ES 



END OF COMPILATION 



1«0006 

t* PROGRAM 



// OUP 
•STORE 
2AD9 0007 



WS UA CARRY 



CSP05650 
CSP05660 



// ASM 

♦» IONO SUBROUTINE FOR 1130 COMMERCIAL SUBROUTINE PACKAGE 

• NAME 10ND 

* LIST (1132 PRINTER) 



CSP05670 
(ID) CSP05680 
(ID) CSP05690 

CSP05700 
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0000 0001 

0001 00 74000032 

0003 70FD 

0004 01 AC600000 
0006 



ENT 

•CALL IOND 

•CALL 10N0 

» 

ION0 BSS 

IOPND MDX 

MOX 
BACK B5C 

END 



[OND SUBROUTINE NAME 

NO PARAMETERS 

ALLOWS I/O OPERATIONS TO END BEFORE 

PAUSE OR STOP IS ENTERED 

1 ARGUMENT ADDRESS 

50.0 ANY INTERRUPTS PENOING 

IOPND 

IOND 



PAGE 1 

CSP05710 
CSP05720 
CSP05730 
CSP05740 
CSP05750 
CSP05760 
CSP0577O 
CSP05780 
CSP05790 



NO ERRORS IN ABOVE ASSEMBLY. 



// DUP 
•STORE 
2AE0 0002 



WS UA IOND 



CSP05.B00 
CSP05B10 



// ASM 

#» PACK/UNPAC SUBROUTINES FOR 1130 COMMERCIAL SUBROUTINE PACKAGE 

• NAME UNPAC 

» LIST (1132 PRINTER) 



CSP05820 
(ID) CSP05830 
(ID) CSP05840 

CSP05850 



booo o 


0000 


UNPAC 


DC 


0001 


C003 




LD 


0002 


DO IE 




STO 


0003 


7O07 




MDX 


0004 


7O08 


SW1 


MDX 


0005 


700O 


SW2 


MDX 


0006 


0000 


PACK 


DC 


0007 


COFE 




LD 


0008 


D0F7 




STO 


0009 


COFA 




LD 


OOOA 


0016 




STO 


OOOB 


692F 


START 


STX 


OOOC 01 


65800000 




LDX 


OOOE 


C100 




LD 


OOOF 


802F 




A 


0010 00 


95800001 




S 


0012 


DOOO 




STO 


0013 


C103 




LD 


0014 


B02A 




A 


0015 00 


95800004 




S 


0017 


0006 




STO 


ooie o 


C100 




LD 


0019 


8025 




A 


001A 00 


95B00002 




S 


001C 


0023 




STO 


0010 00 


65000000 


KCARD 


LDX 


001F 00 


C4000000 


JCARD 


LD 


0021 


7000 


SWTCH 


MDX 


0022 


1886 




SRT 


0023 


1008 




SLA 


0024 


EB19 




OR 


0025 


D100 




STO 


0026 


71FF 




MOX 


0027 


1090 




SLT 


0028 


E815 




OR 


0029 


7006 




MDX 


002A 


1896 


ELSE 


SRT 


002B 01 


74FF002O 




MDX 


002D 01 


C4B00020 




LD 


002F 


18CB 




BTE 


0030 


0100 


FINIS 


. STO 


0031 01 


74FF0O2O 




MDX 


0033 


71FF 




MDX 


0034 


COEB 




LD 
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UNPAC UNPACK SUBROUTINE ENTRY POINT CSP05860 

CALL UNPACIJCARD. J. JLAST. KCARD. K> CSP05B70 

THE WORDS JCARD J THROUGH CSP05B8O 

JCARD JLAST IN A2 FORMAT ARE CSP05890 

UNPACKED INTO KCARO K IN Al FORMAT. CSP05900 

PACK PACK SUBROUTINE ENTRY POINT CSP05910 

CALL PACK(JCAR0. J. JLAST. KCARD. K> CSP05920 

THE WORDS JCARD J THROUGH CSPO5930 

JCARD JLAST IN Al FORMAT ARE PACKED CSP05940 

INTO KCARD K IN A2 FORMAT. CSP05950 

ARGUMENT ADDRESS COMES IN HERE CSP05960 

5W2 LOAD NOP INSTRUCTION CSP05970 

SWTCH STORE NOP AT SWITCH CSP05980 

START COMPUTING C5P05990 

X ELSE-SWTCH-1 BRANCH TO ELSE CSP06000 

X NOP INSTRUCTION CSP06010 

ARGUMENT ADDRESS COMES IN HERE CSP06020 

PACK PICK UP ARGUMENT ADDRESS CSP06030 

UNPAC AND STORE IT IN UNPAC CSP06040 

SW1 LOAD 8RANCH TO ELSE CSP06050 

SWTCH STORE BRANCH AT SWITCH CSP06060 

1 SAVE161 SAVE IR1 CSPO607O 

II UNPAC PUT ARGUMENT ADDRESS IN IR1 C5P06080 

1 GET JCARD ADDRESS CSP06090 

ONE ADD CONSTANT OF 1 CSP06100 

II 1 SUBTRACT J VALUE CSP06110 

JCARD+1 CREATE JCARDIJI ADDRESS CSP06120 

1 3 SET KCARD ADDRESS CSP06130 

ONE ADD CONSTANT OF 1 CSP06140 

II 4 SUBTRACT K VALUE CSP06150 

KCARD+1 CREATE KCARDIKI ADDRESS CSP06160 

1 GET JCARD ADDRESS CSP06170 

ONE ADD CONSTANT OF 1 CSPO6180 

II 2 SUBTRACT JLAST VALUE CSP06190 

JLAST CREATE JCARD JLAST ADDRESS CSPO6200 

LI PUT KCARD ADDRESS IN IR1 CSP06210 

L PICK UP JCARDIJI CSP06220 

X SWITCH BETWEEN PACK AND UNPACK CSP06230 

8 SHIFT LOW ORDER BITS TO EXT CSP06240 

8 REPOSITION HIGH ORDER BITS CSPO6250 

BMASK PUT BLANK IN LDW ORDER BITS CSP06260 

1 PUT IN KCARD K CSP06270 

1 -1 DECREMENT KCARD ADDRESS CSP06280 

16 REPOSITION BITS FROM EXT CSP06290 

BMASK PUT BLANK IN LOW ORDER BITS CSP06300 

FINIS BRANCH AROUND PACK ROUTINE CSP06310 

24 SHIFT HIGH ORDER BITS INTO EXT CSP06320 

L JCARD+l.-l DECREMENT JCARD ADDRESS CSP06330 

I JCARD+1 PICK UP JCARDIJ+U CSP06340 

8 SHIFT IN BITS FROM EXT CSP06350 

1 PUT IN KCARD K CSP06360 

L JCARD+l.-l DECREMENT JCARD ADDRESS CSP06370 

1 -1 DECREMENT KCARD ADDRESS CSP06380 

JCARD+1 GET JCARDIJI ADDRESS CSP06390 



0035 900A 

0036 01 4C10001F 
0038 01 74050000 
003A 00 65000000 
003C 01 4C8OOO0O 



003E 
003F 
0040 
0042 



0040 
0001 
0000 



S JLAST SUBTRACT JCARD JLAST ADDRESS 

BSC L JCARD.- CONTINUE IF DIFFERENCE 6 OR 

MDX L UNPAC. 5 CREATE RETURN ADDRESS 

SAVE1 LDX LI RESTORE IR1 

BSC I UNPAC RETURN TO CALLING PROGRAM 

BMASK DC /40 MASK 00OOO0O0O10O000O 

ONE DC 1 CONSTANT OF 1 

JLAST DC STORAGE FOR JCARO JLAST ADDRESS 
END 
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CSP06400 
CSP06410 
CSP06420 
CSP06430 
CSP06440 
CSP06450 
CSP06460 
CSP06470 
CSP064B0 



NO ERRORS IN ABOVE ASSEMBLY. 



// DUP 
•STORE 
2AE2 0005 



WS UA UNPAC 



CSP 06490 
CSP06500 



-143- 



// ASM 

*# READ AND PUNCH SUBROUTINES FOR 1130 CSP 

« NAME READ 

* LIST CU32 PRINTER! 



CSP06510 
(10) C5P06520 
(ID! CSPO6530 

CSP06540 



008C 


179150C8 




ENT 




PUNCH 






* CALL PUNCH 


t JCARD. 






» PUNCH JCARDIJ) THRO 






» BEGINNING OF A CARD 






* NERR2* 






0000 


oooo 


JCARO 


DC 







0001 


0051 


AREA 


BSS 




81 


0052 


OOOO 


FLAG 


DC 







0053 


0000 


REAO 


DC 







0054 


69 IB 




STX 


1 


. SAVE161 


0055 01 


65800053 




LDX 


11 


. READ 


0057 


4022 




BSI 




SETUP 


005H 20 


03059131 




LIBF 




CARD1 


0059 


1000 




DC 




/1000 


005A 1 


0001 




DC 




AREA 


005B 1 


0073 




DC 




ERROR 


005C 20 


225C5144 


CONVT 


LIBF 




SPEED 


005D 


0010 




DC 




/0010 


005E 1 


0002 




DC 




AREA61 


005F 


0000 


JLAS1 


DC 







0060 


0000 


CNT1 


DC 







0061 


COFO 




LD 




FLAG 


0062 01 


4C180067 




BSC 


L 


FINAL .6- 


0064 


1810 




SRA 




16 


0065 


DOEC 




STO 




FLAG 


0066 


70F5 




MDX 




CONVT 


0067 20 


22989547 


FINAL 


LIBF 




SWING 


0068 1 


0000 




DC 




JCARD 


0069 1 


005F 




DC 




JLAS1 


006A 20 


03059131 


TEST 


LIBF 




CAR01 


006B 


0000 




DC 




/OOOO 


006C 


70FO 




MDX 




TEST 


006D 


7104 




MDX 


1 


4 


006E 


6903 




STX 


1 


DONE&l 


006F 00 


65000000 


SAVE1 


LDX 


LI 





0071 00 


4C0OO0OO 


DONE 


BSC 


L 





0073 


0000 


ERROR 


DC 







0074 00 


04000000 


ERR 


STO 


L 





0076 01 


74010052 




MDX 


L 


FLAG.l 


0078 01 


4C800073 




BSC 


I 


ERROR 


007A 


0000 


SETUP 


DC 







O07B 20 


01647380 




LIBF 




ARGS 


007C 1 


0000 




DC 




JCARD 


007D 1 


005F 




DC 




JLAS1 


007E 1 


0001 




DC 




AREA 


007F 


0050 




DC 




80 


0080 


CODE 




LD 




JLAS1 


0081 


DO 14 




STO 




JLAS2 



ENT READ SUBROUTINE ENTRY POINT 
CALL READ (JCARD* J» JLAST * NERR1) 

READ COLUMNS FROM BEGINNING OF CARD INTO JCARD(J) 
THROUGH JCARDtJLASTU PUT ERROR PARAMETER IN 
NERR1* 

SUBROUTINE ENTRY POINT 
JLAST » NERR21 
H JCARD(JLAST) INTO THE 
PUT ERROR PARAMETER INTO 



JCARD J ADDRESS 

I/O AREA BUFFER 

ERROR INDICATOR 

FIRST ARGUMENT ADDRESS 

SAVE IR1 

GET 1ST ARGUMENT ADDRESS 

GO TO SETUP 

CALL CARD READ ROUTINE 

READ 

AREA PARAMETER 

ERROR PARAMETER 

CALL CONVERSION ROUTINE 

CARD CODE TO EBCDIC 

FROM AREA 

TO JCARD JLAST 

CHARACTER COUNT 

ERROR INDICATOR 

ALL DONE IF IEHQ 

CLEAR ACC 

CLEAR THE INDICATOR 

CONVERT AGAIN 

REVER5E THE ARRAY 

FROM JCARD J 

TO JCARD JLAST 

CALL BUSY TEST ROUTINE 

BUSY TEST PARAMETER 

REPEAT IF BUSY 

INCREMENT 4 ARGUMENTS 

STORE IR1 

RESTORE IR1 

RETURN TO CALLING PROGRAM 

START OF ERROR ROUTINE 

STORE ACC IN ERROR WORD 

SET THE FLAG INDICATOR 

RETURN TO INTERRUPT PROGRM 

START OF SETUP ROUTINE 

CALL ARGS SUBPROGRAM 

GET JCARD J AOORESS 

GET JCARD JLAST ADDRESS 

GET CHARACTER COUNT 

MAX CHARACTER COUNT 

DISTRIBUTE JCARD JLAST 

INTO JLAS2 
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CSP065SO 

CSPG6560 

CSP 06570 

CSP 06580 

CSP 06590 

CSP 06600 

CSP 06610 

CSP06620 

CSP06630 

CSP 06640 

CSP06650 

CSP 06660 

CSP066 70 

CSP 06680 

CSP06690 

CSP06700 

CSP06710 

CSP 06 720 

CSP06 730 

CSP06740 

CSP 06750 

CSP06760 

C5P 06770 

CSP 06780 

CSP 06790 

CSP 06 800 

CSP06810 

CSP06820 

CSP 06830 

CSP 06840 

CSP068&0 

C5P06860 

CSP06S70 

CSP06880 

CSP06890 

CSP06900 

CSP06910 

CSP06920 

CSP06930 

CSPO6940 

CSP0695Q 

CSP 06 960 

CSP06970 

CSP 06 980 

CSP 06990 

CSP07000 

CSP07010 

CSP07020 

CSP07030 

CSP07040 

CSPO7O50 

CSP07060 

CSP07070 



0082 


01 


C4000001 


LO 


L AREA 


DISTRIBUTE COUNT 


CSP07080 


0084 





DODB 


STO 


CNT1 


INTO CNT1 


CSP07090 


0085 





D012 


STO 


CNT2 


AND CNT2 


CSP07100 


0086 





C103 


LD 


1 3 


GET ERROR WORD ADDRESS 


CSP07110 


0087 





DO ED 


5T0 


ERR61 


STORE INSIDE ERROR ROUTINE 


CSP07120 


0088 





1810 


SRA 


16 


CLEAR ACC 


CSP07130 


0089 





D0C8 


5T0 


FLAG 


CLEAR ERKOR INDICATOR 


CSP07140 


008A 


01 


4C80O07A 


BSC 


I SETUP 


RETURN TO CALLING PROG 


CSP07150 


008C 





OOOO 


PUNCH DC 





PUNCH ROUTINE STARTS HERE 


CSP07160 


008D 





69E2 


5TX 


1 SAVElbl 


SAVE IR1 


CSP07170 


008E 


01 


6580O08C 


LOX 


I 1 PUNCH 


LOAD 1ST ARGUMENT ADDRESS 


CSP071S0 


0090 





40E9 


BSI 


SETUP 


GO TO SETUP ROUTINE 


CSP07190 


0091 


20 


22989547 


LIBF 


SWING 


CALL REVERSE ARRAY 


CSP0720O 


0092 


1 


OOOO 


DC 


JCARD 


FROM JCARD J 


C5P07210 


0093 


1 


005F 


DC 


JLAS1 


TO JCARD JLAST 


CSP07220 


0094 


20 


225C5144 


LIBF 


SPEED 


CALL CONVERSION ROUTINE 


CSP07230 


0095 





0011 


DC 


/OOU 


FROM EBCDIC TO CARD CODE 


CSP07240 


0096 





OOOO 


JLAS2 DC 





FROM JCARD JLAST 


CSP07250 


0097 


1 


0002 


DC 


AREA&l 


TO THE I/O AREA BUFFER 


CSP07260 


0098 





OOOO 


CNT2 DC 





CHARACTER COUNT 


CSP07270 


0099 


20 


03059131 


LIBF 


CARD1 


CALL PUNCH ROUTINE 


CSP07280 


009A 





2000 


DC 


/2000 


PUNCH 


CSP07290 


009B 


1 


O001 


DC 


AREA 


I/O AREA BUFFER 


C5P07300 


009C 


1 


0073 


DC 


ERROR 


ERROR PARAMETER 


CSP07310 


009D 





70C9 


MDX 


FINAL 


all Through* go to final 


CSP07320 


009E 






END 




END OF READ SUBPROGRAM 


CSP07330 



NO ERRORS IN ABOVE ASSEMBLY. 



// DUP 
•STORE 
2AE7 0006 



US UA READ 



C5P07340 
CSP07350 



// ASM 

»• TYPE AND KEYBD SUBROUTINES FOR 1130 CSP 

* NAME TYPER 

• LIST 11132 PRINTER) 



CSP07360 
(1D> CSP07370 
(ID) CSP07360 

CSP07390 



-144- 



003F 




23*17159 




ENT 




TYPER 


SUBROUTINE ENTRY POINT 


CSP07400 








• CALL TYPE 


i IJCARDi J. 


JLAST > 


CSP07410 








« TYPE JCARDIJ) THROUGH 


JCARDl JLAST 1 


CSP07420 


0069 




12168084 




ENT 




KEYBD 


SUBROUTINE ENTRY POINT 


CSP07430 








• CALL KEYBO 


t JCARD* J* 


JLAST) 


CSP07440 








» ENTER AT 


KEYBOARD JCARDIJ) THROUGH JCARD (JLAST J 


C5P07450 


0000 





0001 


ONE 


DC 




1 


CONSTANT OF I 


CSP07460 


0001 





0000 


JCARO 


DC 







JCARD J ADDRESS 


CSP07470 


0002 




003D 


AREA 


BSS 




61 


I/O AREA BUFFER 


CSP07480 


003F 





0000 


TYPER 


DC 







FIRST ARGUMENT ADDR HERE 


CSP07490 


0040 





691A 




STX 


1 


SAVE161 


SAVE IR1 


CSP07500 


0041 





6178 




LDX 


1 


120 


PUT 120 IN IR1 


C5P07510 


0042 





6923 




STX 


1 


MAXCH 


STORE IT AS MAX CHARS 


CSP07520 


0043 


01 


6590O03F 




LDX 


11 


TYPER 


PUT FIRST ADDR IN IR1 


CSP0753O 


00»5 





4018 




BSI 




SETUP 


GO TO SETUP 


CSP07540 


0046 





COBB 




LD 




AREA 


GET CHARACTER COUNT 


CSP07550 


0047 





80B8 




A 




ONE 


HALF ADJUST IT AND 


CSP07560 


0048 





1801 




SRA 




1 


DIVIDE IT BY TWO 


CSP07570 


0049 





0088 




STO 




AREA 


AND REPLACE IT 


CSP075B0 


004A 





1001 




SLA 




1 


DOUBLE IT 


CSP07590 


004B 





D008 




STO 




CNT1 


AND PUT IT IN CNT1 


CSP07600 


004C 


20 


195C10D2 




LIBF 




RPACK 


CALL REVERSE PACK ROUTINE 


CSP07610 


004D 


1 


0001 




DC 




JCARD 


FROM JCARD J 


CSP07620 


004E 


1 


0083 




DC 




JLAST 


TO JCARD JLAST 


CSP07630 


004F 


1 


0003 




DC 




AREA&l 


PACK INTO I/O AREA 


CSP07640 


0050 


20 


05097663 




LIBF 




EBPRT 


CALL CONVERSION ROUTINE 


CSP07650 


0051 





0000 




DC 




/OOOO 


FROM EBCDIC 


CSP07660 


0052 


1 


O003 




DC 




AREA61 


TO PRINTER CODE. 


CSP07670 


0053 


1 


0003 




DC 




AREA61 


ALL IN THE I/O AREA 


CSP07680 


0054 





OOOO 


CNT1 


DC 







HALF ADJSTD CHARACTER CNT 


CSP07690 


0055 


20 


23A17170 




LIBF 




TYPEO 


CALL TYPE ROUTINE 


CSP07700 


0056 





2000 




DC 




/20OO 


TYPE PARAMETER 


CSP07710 


0057 


1 


0002 




DC 




AREA 


I/O AREA BUFFER 


CSP07720 


0058 





7103 


FINAL 


MDX 


1 


3 


INCREMENT OVER 3 ARGUMENTS 


CSP07730 


0059 





6903 




STX 


1 


DONE&l 


STORE IR1 


CSP07740 


005A 


00 


65000000 


SAVE1 


LDX 


LI 





RESTORE IR1 


CSP07750 


005C 


00 


4C0O0000 


DONE 


BSC 


L 





RETURN TO CALLING PROGRAM 


CSP07760 


005E 





0000 


SETUP 


DC 







START OF SETUP ROUTINE 


CSP07770 


005F 


20 


23A17170 


TEST 


LIBF 




TYPEO 


CALL BUSY TEST ROUTINE 


CSP07780 


0060 





0000 




DC 




/OOOO 


BUSY TEST PARAMETER 


CSP07790 


0061 





70FD 




MDX 




TEST 


REPEAT TEST IF BUSY 


CSPO760O 


0062 


20 


01647880 




LIBF 




ARGS 


CALL ARGS ROUTINE 


CSP07810 


006 3 


1 


OO01 




DC 




JCARD 


1ST ARGUMENT TO JCARD J 


CSP07820 


0064 


1 


0083 




DC 




JLAST 


TO JCARD JLAST 


CSP07B30 


0065 


1 


0002 




DC 




AREA 


TO CHARACTER COUNT 


CSP07B40 


0066 





OOOO 


MAXCH 


DC 







MAXIMUM NUMBER OF CHARS 


CSP07S50 


0067 


01 


4C8OO05E 




BSC 


I 


SETUP 


END OF SETUP* RETURN 


CSP07860 


0069 





OOOO 


KEYBD 


DC 







START OF KEYBOARD ROUTINE 


CSP07870 


006* 





69F0 




STX 


1 


SAVE1&1 


SAVE IR1 


CSP07880 


006B 





613C 




LDX 


1 


60 


PUT BUFFER LENGTH IN 1R1 


CSP07690 


006C 





69F9 




STX 


1 


MAXCH 


60 IS MAX NO OF CHARS 


CSP07900 


006D 


01 


65800069 




LDX 


11 


KEYBD 


1ST ARGUMENT ADDR IN IR1 


CSP07910 


006F 





40EE 




BSI 




SETUP 


GO TO SETUP 


CSP07920 



0070 





613C 




LDX 


1 60 


0071 





1810 




SRA 


16 


0O72 


01 


D5000002 


CLEAR 


STO 


LI AREA 


0074 





71FF 




MDX 


1 -1 


0075 





70FC 




MDX 


CLEAR 


0076 


01 


65800069 




LDX 


11 KEYBD 


0078 





C089 




LD 


AREA 


0079 





DOOA 




STO 


CNT 2 


007A 


20 


23A17170 




LIBF 


TYPEO 


007 B 





1000 




DC 


/1000 


007C 


1 


0002 




DC 


AREA 


007D 


20 


23A17170 


TEST1 


LIBF 


TYPEO 


007E 





OOOO 




DC 


/OOOO 


007F 





70FD 




MOX 


TEST1 


0080 


20 


225C5144 




LIBF 


SPEED 


0081 





0010 




DC 


/0010 


0082 


1 


0003 




DC 


AREA61 


0083 





OOOO 


JLAST 


DC 





0084 





OOOO 


CNT2 


DC 





0085 


20 


22989547 




LIBF 


SWING 


0086 


1 


0001 




DC 


JCARD 


0087 


1 


0083 




DC 


JLAST 


0068 





70CF 




MDX 


FINAL 


008A 








END 





PUT BUFFER LENGTH IN IR1 

CLEAR THE ACC 

CLEAR THE I/O BUFFER 

DECREMENT IR1 

AND CONTINUE CLEARING 

1ST ARGUMENT ADDR IN IR1 

PUT CHARACTER COUNT 

IN CNT2 

CALL KEYBOARD ROUTINE 

KEYBOARD PARAMETER 

I/O AREA BUFFER 

CALL SUSY TEST ROUTINE 

BUSY TEST PARAMETER 

REPEAT TEST IF BUSY 

CALL CONVERSION ROUTINE 

CARD CODE TO EBCOIC 

FROM THE I/O AREA BUFFER 

TO JCARD JLAST 

CHARACTER COUNT 

CALL REVERSE ARRAY 

REVERSE FROM JCARD J 

TO JCARD JLAST 

ALL THROUGH* GO TO FINAL 

END OF TYPfc SUBPROGRAM 
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CSP07930 
CSP079*>0 
CSP07950 
CSP07960 
CSP07970 
CSP07980 
CSP07990 
CSP08000 
CSP08010 
CSP08020 
CSP08030 
CSP08040 
C5P08050 
CSP08060 
CSP08070 
CSP08080 
CSP08090 
CSP 08100 
CSP08110 
CSP08120 
CSP 08130 
CSP08140 
CSP08150 
CSP08160 



NO ERRORS IN ABOVE ASSEMBLY. 



// DUP 
•STORE 
2AED 0006 



WS UA TYPER 



CSP08170 
C5P08160 



// A5M 

*# PRINT AND SKIP SUBROUTINES FOR 1130 CSP 

* NAME PRINT 

« LIST (1132 PRINTER) 



CSP08190 
(ID) CSP08.200 
(ID) CSP0S210 

CSPOB220 



-145- 



ENT PRINT SUBROUTINE ENTRY POINT 

• CALL PRINT UCARDi J. JLAST. NERR3) 

» PRINT JCARDtJ) THROUGH JCARD I JLAST) ON THE 
» 1132 PRINTER. PUT ERROR PARAMETER IN NERR3. 

ENT SKIP SUBROUTINE ENTRY POINT 

• CALL SKIPINI 

• EXECUTE CONTROL FUNCTION SPECIFIED BY INTEGER N 



OOOO 
0001 
0002 
0003 
000* 
0041 
0042 
0043 
0044 
0045 
0046 
0048 
0049 
004A 
004B 
004C 
O04D 
004E 
O04F 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0056 
0059 
005A 
005B 
005C 
005 D 
005E 
005F 
0061 
0063 
0064 
0066 
0067 
0069 
006A 
006C 
006D 
006F 
0071 
0072 



0001 
2000 
0000 
0000 
0030 
0000 
20 176558F1 
0000 
70FD 

691A 

01 65800041 
20 01647880 
1 0002 

1 0003 
1 0004 
0078 
C0B6 
80S1 
1601 
D0B3 
C103 

0012 

20 195C1002 

1 O002 
1 0003 
1 0005 

20 176558F1 

2000 

1 0004 
1 0063 
C0A5 
OOFB 
7104 
6903 

00 65000000 
00 4C00O0O0 
0000 
00 04000000 

1810 

01 4C800063 

0000 

01 C4800069 
D001 

00 C4000000 

01 4C3OO074 
C009 

DOES 



ONE DC 
SPACE DC 
JCARD DC 
JLAST DC 
AREA BSS 
PRINT DC 
TEST LIBF 
DC 
MOX 
STX 
LDX 
LIBF 
DC 
DC 
DC 
DC 
LD 
A 

SRA 
STO 
LD 
STO 
LIBF 
DC 
DC 
DC 

LIBF 
WRITE DC 
DC 
DC 
LO 
STO 
MDX 
STX 
SAVE1 LDX 
D0NE1 3SC 
ERROR DC 
ERR STO 
SRA 
BSC 
SKIP DC 
LD 
STO 
ARG LD 
BSC 
LD 
STO 



1 CONSTANT OF 1 

/2000 PRINT FUNCTION WITH SPACE 

JCARD J ADDRESS 

JCARD JLAST ADDRESS 

61 WORD COUNT 6 PRINT AREA 

ADDRESS OF 1ST ARGUMENT 
PRNT1 CALL BUSY TEST ROUTINE 
/OOOO BUSY TEST PARAMETER 
TEST REPEAT TEST IF BUSY 

1 SAVE161 STORE IR1 
II PRINT LOAD 1ST ARGUMENT ADDRESS 
ARGS CALL ARGS ROUTINE 
JCARD JCARD J PICKED UP 
JLAST JCARD JLAST PICKED UP 
AREA CHARACTER COUNT PICKED UP 
120 MAX CHARACTER COUNT 
AREA GET CHARACTER COUNT 
ONE HALF ADJUST 

1 DIVIDE BY TWO 
AREA STORE WORD COUNT 

GET ERROR WORD ADDRESS 
STORE IT IN ERROR ROUTINE 
CALL REVERSE PACK ROUTINE 
JCARD J ADDRESS 
JCARD JLAST ADDRESS 
PACK INTO I/O AREA 
CALL PRINT ROUTINE 
PRINT PARAMETER 
I/O AREA BUFFER 
ERROR PARAMETER 
LOAD PRINT WITH SPACE 
STORE IN PRINT PARAMETER 
INCREMENT OVER 4 ARGUMENTS 
STORE IR1 

RELOAD OR RESTORE IR1 
RETURN TO CALLING PROGRAM 
RETURN ADDRESS GOES HERE 

STORE ACC IN ERROR PARAM 

16 CLEAR ACC 

ERROR RETURN TO PRNT1 PROGRAM 
ADDRESS OF ARGUMENT ADDR 

SKIF GET ARGUMENT ADDRESS 
ARG61 DROP IT AND 
GET ARGUMENT 

NOSUP.-Z GO TO NOSUPPRESSION IF 6 
NOSPC SET UP SPACE SUPPRESSION 
WRITE CHANGE PRINT FUNCTION 



1 3 
ERR&l 
RPACK 
JCARD 
JLAST 
AREA61 
PRNT1 
/2000 
AREA 
ERROR 
SPACE 
WRITE 

1 4 

1 D0NE161 
LI 
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CSP08 230 
CSP08240 
CSP06250 
CSP08260 
CSP08270 
CSP08280 
CSP08290 
CSP 08300 
CSP08310 
CSP 08320 
CSP08330 
CSP06340 
CSP 08350 
CSP08360 
CSP08370 
CSP08380 
CSP 08390 
CSP08400 
CSP0841O 
CSP08420 
CSP 08430 
CSP08440 
CSP 08450 
CSP0B460 
CSP08470 
CSP 08480 
CSP 08490 
CSP08500 
CSP 08510 
CSP08520 
CSP08530 
CSP 08540 
CSP08550 
CSP08560 
CSP0S57O 
CSP08580 
CSP08590 
CSP0B600 
CSP08610 
CSP08620 
CSP08630 
CSP08640 
CSP08650 
CSP08660 
CSP08670 
CSP08680 
CSP08690 
CSP08700 
CSP08710 
CSP0B720 
CSP08730 
CSP08740 
CSP08750 
CSP08 760 



0073 





7003 




MDX 


DONE 


0074 





0001 


NOSUP 


STO 


CNTRL 


0075 


20 


176558F1 




LIBF 


PRNT1 


0076 





3000 


CNTRL 


DC 


/3000 


0077 


01 


74010069 


DONE 


MDX L 


SKIP. 


0079 


01 


4CB00069 




BSC I 


SKIP 


007B 





2010 


NOSPC 


DC 


/2010 


007C 








END 
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GO TO RETURN CSP08770 

SET UP COMMAND CSP08780 

CALL THE PRNT ROUTINE CSP08790 

CARRIAGE COMMAND WORD CSP08800 

ADJUST RETURN ADDRESS CSP08810 

RETURN TO CALLING PROGRAM CSP0B820 

SUPPRESS SPACE COMMAND CSP0S830 

END OF PRINT SUBPROGRAM CSP08840 



NO ERRORS IN ABOVE ASSEMBLY. 



// DUP 
•STORE 
2AF3 0003 



WS UA PR1FT 



CSP0885O 
CSP08860 



// ASM 

•• ARCS. RPACK AND SWING SUBROUTINES FOR 1130 CSP 

» LIST (1132 PRINTERI 

» NAME ARGS 



CSP08870 
(ID) C5P088SO 

CSP08890 
(101 CSP08900 
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0002 01647880 
0030 195C10D2 
004F 22989547 



LIBR LIBF TYPE ROUTINES FOLLOW 

• THESE SUBROUTINES CANNOT BE CALLED FROM FORTRAN 

ENT ARGS SUBROUTINE ENTRY POINT 

• ARGS GETS THE ARGUMENT FOR THE I/O ROUTINES 

ENT RPACK SUBROUTINE ENTRY POINT 

• RPACK REVERSES AND PACKS EBCDIC STRINGS 

ENT SWING SUBROUTINE ENTRY POINT 

• SWING REVERSES AN EBCDIC STRING 
CONSTANT OF 1 
JCARD JLAST ADDRESS 
ARGS ROUTINE STARTS HERE 
GET 1ST ARGUMENT ADDR 
GET JCARD ADDR 
SUBTRACT JLAST VALUE 
ADD ONE 

STORE IN 2ND ARG 
GET JCARD ADDR 
SUBTRACT J VALUE 
ADD ONE 

STDRE IN 1ST ARG 
SUBTRACT JLAST ADDR 
ADD ONE 

CHECK FOR NEG OR CHARS 
OK. SUBTRACT MAX CHARS 
CHECK MORE THAN MAX CHARS 
ADD MAX CHARS BACK 
ADDRESSES OK 
PICK UP JCARD(J) 
AND STORE IN JCARDI JLAST I 
SET UP CHAR COUNT OF 1 
GO TO STORE CHAR COUNT 
PICK UP JCARDIJ) 
AND CALCULATE JCARD I JLAST I 
TO BE JCARDIJWIAX-1) 
STORE ADDR IN JCARDIJLASTI 
LOAD CHARACTER COUNT 
STORE CHARACTER COUNT 
CREATE RETURN ADDR 
STORE RETURN ADDRESS 
RESTORE IR2 

RETURN TO CALLING PROGRAM 
RPACK ROUTINE STARTS HERE 
GET 1ST ARGUMENT ADDRESS 
GET JCARD ADDR 
INITIALIZE JCARD ADDRESS 
GET SECOND ARGUMENT ADDR 
INITIALIZE JCARD JLAST 
GET AREA ADDRESS 
INITIALIZE PACK TO ADORESS 
LOAD FIRST CHARACTER 
SHIFT INTO EXT 

1 DECREMENT ADDRESS 
GET SECOND CHARACTER 
SHIFT RIGHT. RETRIEVE EXT 



0000 0001 


ONE 


DC 




1 


OO01 0000 


JLAST 


DC 







0002 6A2A 


ARGS 


STX 


2 


SAVE2&1 


0003 00 66800000 




LDX 


12 





0005 C100 




LD 


1 





0006 00 95800002 




S 


11 


2 


0008 80F7 




A 




ONE 


0009 00 D6800001 




STO 


12 


1 


OOOB C100 




LD 


1 





OOOC 00 95800001 




S 


11 


1 


OOOE 80F1 




A 




ONE 


OOOF 00 D6800000 




STO 


12 





0011 00 96800001 




S 


12 


1 


0013 80EC 




A 




ONE 


0014 01 4C08001B 




BSC 


L 


ER0R1.+ 


0016 9203 




S 


2 


3 


0O17 01 4C300021 




BSC 


L 


ERROR .-2 


0019 8203 




A 


2 


3 


0O1A 700D 




MDX 




OK 


001B 00 C6800000 


ER0R1 


LD 


12 





001D 00 D68OO0O1 




STO 


12 


1 


001F COEO 




LD 




ONE 


0020 7007 




MDX 




OK 


0021 00 C6800000 


ERROR 


LD 


12 





0023 9203 




S 


2 


3 


0024 80DB 




A 




ONE 


0025 00 D6800001 




STO 


12 


1 


0027 C203 




LD 


2 


3 


0028 00 D6600002 


OK 


STO 


12 


2 


002A 7204 




MDX 


2 


4 


002B 6A03 


LAST 


STX 


2 


DONE&l 


002C 00 66000000 


SAVE2 


LDX 


L2 





002E 00 4CO0OO0O 


DONE 


BSC 


L 





0030 6AFC 


RPACK 


STX 


2 


SAVE261 


0031 00 66800000 




LDX 


12 





0033 00 C6800000 




LD 


12 





0035 D006 




STO 




JCARDS1 


0036 00 C6800001 




LD 


12 


1 


0038 D0C8 




STO 




JLAST 


0039 C202 




LD 


2 


2 


003A D009 




STO 




KCARDS1 


003B 00 C4000000 


JCARD 


LD 


L 





003D 1898 




SRT 




24 


003E 01 74FF003C 




MDX 


L 


JCARDSl. 


0040 01 C480003C 




LD 


I 


JCARDS1 


0042 18C8 




RTE 




8 
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CSP08910 
CSP0B92O 
CSP08930 
CSP08940 
CSPOS950 
CSP08960 
CSP0S97O 
CSP08980 
CSP08990 
CSP09000 
CSP09O1O 
CSP09020 
CSP09030 
CSP09040 
C5P09050 
CSP09060 
CSP09O7O 
CSP09O8O 
CSP09090 
CSP09100 
CSP091I0 
CSP09120 
CSP 09130 
CSPD9140 
CSP09150 
CSP09160 
CSP09170 
CSP09180 
CSP0919O 
CSP0920O 
CSP09210 
CSP0922O 
CSP09230 
CSP0924O 
CSP 09250 
CSP09260 
CSP09270 
CSP0928O 
CSP09290 
CSP09300 
CSP09310 
CSP09320 
CSP 09330 
CSP09340 
CSP09350 
CSP09360 
CSP09370 
CSP093B0 
CSP09390 
CSP0940O 
CSP09410 
CSP09420 
CSP09430 
CSP0944O 



0043 


00 


04000000 


KCARD 


STO 


L 





0045 


01 


74FF003C 




MDX 


L 


JCARD61.-1 


0047 


01 


74010044 




MDX 


L 


KCARD61.61 


0049 





C0F2 




LD 




JCARDS1 


004A 





90B6 




S 




JLAST 


004B 


01 


4C10003B 




BSC 


L 


JCARD.- 


004D 





7203 




MDX 


2 


3 


004E 





TODC 




MDX 




LAST 


004F 





6 ADD 


SWING 


STX 


2 


SAVE2S1 


0050 


00 


66800000 




LDX 


12 





0052 


00 


C6800000 




LD 


12 





0054 





D007 




STO 




BACK61 


0055 


00 


C6800001 




LD 


12 


1 


0057 





D001 




STO 




FRONTH 


0058 


00 


C4000000 


FRONT 


LD 


L 





005A 





1890 




SRT 




16 


005B 


00 


C4000000 


BACK 


LD 


L 





005D 





E810 




OR 




HEX40 


005E 


01 


D4800059 




STO 


I 


FR0NT61 


0060 





1090 




SLT 




16 


0061 





E80C 




OR 




HEX40 


0062 


01 


D480005C 




STO 


I 


BACKS 1 


0064 


01 


74010059 




MDX 


L 


FR0NT61.61 


0066 


01 


74FF005C 




MDX 


L 


BACKS lt-1 


0068 





COFO 




LD 




FR0NT61 


0069 





90F2 




S 




BACK+1 


006A 


01 


4C08005S 




BSC 


L 


FRONT.!. 


006C 





7202 




MOX 


2 


2 


006D 





70 BD 




MDX 




LAST 


006E 





0040 


HEX40 


DC 




/O04O 


0070 








END 







STORE IN AREA 
DECREMENT ADDRESS 
INCREMENT AREA ADDRESS 
GET ENDING ADDRESS 
SUBTRACT JCARD JLAST ADDR 
REPEAT IF NOT MINUS 
INCREMENT OVER 3 ARGS 
ALL THROUGH. GO TO LAST 
SWING ARRAY END FOR END 
GET 1ST ARGUMENT ADDRESS 
GET FIRST ARGUMENT 
STORE AT BACK ADDRESS 
GET 2ND ARGUMENT 
STORE AT FRONT ADORESS 
GET WORD FROM FRONT 
PUT IT IN THE EXT 
GET A WORD FROM THE BACK 
OR IN AN EBCDIC BLANK 
PUT IT IN THE FRONT 
RETRIEVE THE EXT 
OR IN AN EBCDIC BLANK 
PUT IT IN THE BACK 
INCREMENT THE FRONT ADDR 
OECREMENT THE BACK ADDR 
GET THE FRONT ADDRESS 
SUBTRACT THE BACK ADDRESS 
REPEAT IF MINUS 
INCREMENT OVER 2 ARGS 
ALL THROUGH. GO TO LAST 
EBCDIC BLANK CODE 
END OF ARGS SUBPROGRAM 
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CSP09450 
CSP09460 
CSP09470 
CSP09480 
CSP09490 
CSP 09500 
CSP09510 
CSP 09520 
CSP09530 
CSP09540 
CSP09S50 
CSP09560 
CSP09570 
CSP 09580 
CSP09590 
CSP096DO 
CSP09610 
CSP09620 
CSP 09630 
CSP09640 
CSP09650 
CSP09660 
CSP09670 
CSP09680 
CSP09690 
CSP09700 
CSP09710 
CSP0972O 
CSP0973O 
CSP 09 740 
CSP09750 



NO ERRORS IN ABOVE ASSEMBLY. 



// DUP 

•STORE 
2AF8 OOOB 



WS UA ARGS 



CSP09760 
CSP09770 
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APPENDIX 



CORE ALLOCATION 

To calculate the core requirements, sum the number of words for all routines used. If 
NZONE, CARRY, NSIGN, SERVICE, WHOLE, ADD, and/or FILL are not included in 
the first sum, and they are CALLed by a routine in the first sum, add their number of 
words to the first sum. Then calculate the Reference core requirements. Keeping in 
mind that no matter how many times a Reference is used, it should be considered only 
once, sum the core requirements of all References used. Add this sum to the first sum. 
The resulting total is the core requirement for the 1130 Commercial Subroutine Package. 
Notice that the FORTRAN subroutines a, b, c, and d will also be used by most 
FORTRAN programs and so will be present whether the package is used or not. 



Routine 


Number 








Name 


of Words 


CALLS 




Reference 


A1DEC 


116 


NZONE 




a 


ADD 


202 


NSIGN, CARRY, 


FILL 


a 


CARRY 


100 






a 


DECA1 


118 


NZONE 




a 


DIV 


354 


NSIGN, CARRY, 


FILL 


a 


EDIT 


302 


NZONE, FILL 




a 


FILL 


36 






a 


GET 


148 


NZONE 




a,b,e 


ICOMP 


196 


NSIGN 




a 


IOND 


6 






None 


MOVE 


56 






a 


MPY 


240 


NSIGN, CARRY, 


FILL 


a 


NCOMP 


76 






a 


NSIGN 


72 






a 


NZONE 


136 






a 


PACK/UNPAC 


66 






None 


PRINT/SKIP 


124 


SERVICE 




e 


PUT 


152 


NZONE, WHOLE 




a,b,d 


READ/PUNCH 


158 


SERVICE 




f,h 


STACK 


6 






None 
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Routine 


Number 






Name 


of Words 


CALLS 


Reference 


SUB 


48 


NSIGN, ADD 


a 


TYPER/KEYBD 


136 


SERVICE 


g,h 


WHOLE 


34 




None 


SERVICE 
TOTAL 


112 




None 


2,994 



References 

a) 62 (SUBSC, SUBIN) 

b) 342 (EADD, EMPY, ESTO, FLOAT) 

c) 8 (SNR) 

d) 74 (EABS, ESBR, IFK) 



e) 404 (PRNT1) 

f) 264 (CARD1) 

g) 638 (TYPEO, EBPRT) 
h) 360 (SPEED, ILS04) 
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EBCDIC CHARACTERS AND DECIMAL EQUIVALENTS 



A 


-16064 


B 


-15808 


C 


-15552 


D 


-15296 


E 


-15040 


F 


-14784 


G 


-14528 


H 


-14272 


I 


-14016 


J 


-11968 


K 


-11712 


L 


-11456 


M 


-11200 


N 


-10944 


O 


-10688 


P 


-10432 


Q 


-10176 


R 


-9920 



S 


-7616 


T 


-7360 


U 


-7104 


V 


-6848 


w 


-6592 


X 


-6336 


Y 


-6080 


Z 


-5824 





-4032 


1 


-3776 


2 


-3520 


3 


-3264 


4 


-3008 


5 


-2752 


6 


-2496 


7 


-2240 


8 


-1984 


9 


-1728 



blank 

. (period) 



16448 
19264 



< (less than) 19520 



( 

+ 

& 



(minus) 



/ 

> 

% 
# 
@ 



19776 
20032 
20544 
23360 
23616 
23872 
24640 
24896 
27456 
27712 
31552 
31808 



1 (apostrophe) 32064 
32320 
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OPERATING INSTRUCTIONS 

The procedures set forth in IBM 1130 Card/Paper Tape Programming System Operator's 
Guide (C26-3629) and in IBM 1130 DISK Monitor System Reference Manual (C26-3750) 
should be followed to execute the sample problems and all user-written programs. 

In addition, to execute sample problems 1 and 3, the switch settings on the console are 
as follows: 



Switch 



Position and meaning 



up = 1132 Printer, down = console printer 

1-15 no meaning 

There are no switch settings for sample problem 2, but the 1132 Printer is required. 

HALT LISTING 

Conditions A and B (see list below) have the following meaning: 

A Device not ready. 

B Internal subroutine error. Rerun job. If error persists, verify that the 

subroutine deck is accurate, using the listings in this manual. If the deck is 
the same, contact your local IBM representative. Save all output. 



IAR 


Accumulator (hex) 


Device 


Condition 


41 


lxxO 


1442 Card Read Punch 


A 


41 


lxxl 


1442 Card Read Punch 


B 


41 


2xx0 


Console printer or keyboard 


A 


41 


2xxl 


Console printer or keyboard 


B 


41 


6xx0 


1132 Printer 


A 


41 


6xxl 


1132 Printer 


B 
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READER'S COMMENT FORM 

1130 Commercial Subroutine Package (1130-SE-25X) H20-0241-2 

Version 2, Program Reference Manual 



Please comment on the usefulness and readability of this publication, suggest additions and 
deletions, and list specific errors and omissions (give page numbers). All comments and sugges- 
tions become the property of ibm. If you wish a reply, be sure to include your name and address. 



COMMENTS 



fold fold 



fold fold 



Thank you for your cooperation. No postage necessary if mailed in the U.S.A. 
FOLD ON TWO LINES, STAPLE AND MAIL. 



H20- 0241-2 



YOUR COMMENTS PLEASE... 

Your comments on the other side of this form will help us improve future editions of this pub- 
lication. Each reply will be carefully reviewed by the persons responsible for writing and pub- 
lishing this material. 

Please note that requests for copies of publications and for assistance in utilizing your ibm 
system should be directed to your ibm representative or the ibm branch office serving your 
locality. 
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